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FACILITY: Common Data Dictionary 
ABSTRACT: 


This module contains the routines used to translate CDD definitions. 
It can translate the following types of definitions: 


Records 
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ENVIRONMENT: 
ALL routines run in user access mode. 
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These routines are NOT AST reentrant. 
AUTHOR: Jeff East, 30-Jan-81 
MODIFIED BY: 


703-00 penoues copious amounts of unneeded code. PDG 3-Jan-1983 
i 3: | UTILSF IND pTReO to reference CDD symbols. PDG 2-Mar-1983 


=) 


04 Add D DSC$K_DTYPE_B(U), which was overlooked. PDS 11-Jul-1983 
05 Use De eSF IND IMAGE SYReOL instead. PDG 9-Mar-1 8 
sts from OWN to LOCAL. "PDG 10-Apr-1984 


06 Change attributes T 
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LITERAL 
LINKAGE 


FORWARD 


REG_PRM = 10; 
CAL_CTXREG_LB = CALL: 


RS_CLAUSE: 
RLAY_ FIELDS: 
NS RECORD: 
TRACT RECORD: 
EATE_HISTORY, 
ND_NODE, 
T_ATTS 
T 
T 
T 
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NTITY_CELL, 


F 
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T 
H 
E 
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GET=E i 

GETCENTITY-LIST_ATT, 
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"SYSSLIBRARY: STARLET"; 

*SRC$: COM: 

"SRCS:CDDMAC'; ! REQUIRE 'CDDSLIBRARY:CDDMAC'; 
"SRCS:CDDTYPE'; | REQUIRE 'CDDSLIBRARY:CDDTYPE!; 
"SRCS:REQSYM';” | REQUIRE ‘CDDSPROTOCOL :REQSYM'; 
"SRCS:RECSYM'; ! REQUIRE ‘CDDSPROTOCOL:RECSYM’; 


GLOBAL (CTX=COM_REG_CTX,PRM=REG_PRM) ; 


CAL_CTXREG, 
TXREG_LB, 
R 


“LB, 

G-LB NOVALUE, 
: NOVALUE , 

G 


NOVALUE, 
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CDDSSIGN- OUT, 
CDD_ATTNOTFND: 


NOVALUE ; 


SORSSEND_ROUTINE_(CRE_CLEAN_UP) ; 
EXTERNAL ROUTINE 


50 ROR, 
STRSFREE1_Dx: 


Error messages 


SOR$_BADDTYPE 
SORS BADLENOF F 


SORSSDEF FIELD: 
RSSER 


CAL_CTXREG NOVALUE, 
NOVALUE ADDRESSING_MODE (GENERAL) ; 


'E Invalid or unsupported CDD Sptetyes : 

E Length and offset must be multiples of 8 bits 
F Invalid OCCURS clause 

E Invalid overlay structure 

F Node is an invalid COD object 

F CODD error at node ! 

E Nondecimal base is invalid 

F Record containing symbolic literals is unsupported 

'E Nonzero scale invalid for ges ing point data-item 

E Number of digits is not consistent with the type or Length of item 
W Length and offset required 

E Invalid multidimensional OCCURS 

F Node 'AS is a !AS, not a record definition 

W Absolute Date and Time datatype represented in one second units 
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V05=000 User Literal Definitions 16: sen 1944 94:98:89 SORT 2° sre aeick CRETRA ANS .B32;1 ° (2) 
; 136 17}) ! ! SORS_UNSUPLEVL !F Unsupported core level for record !AS 

; 116 ne 4 

3 71 1718 1 MACRO 

H 118 171 1 CDDS_ATTNOTFND = .CDD__AT 

3 138 Vy y i OWN CDD_"ATTNOTFND: INITIAC(O); 

: 121 17 ‘ 1 MACRO 

aS. § 17 1 con CDD_PATH = O+ZFIELDEXPAND(COM_CDD,0), 6. 3: 0 %, 

5 1724 «1 COM-CDD-CTX = _14#ZFIJELDEXPAND(COM_CDD,0), 0, 32, 0 2%; 

3; 1 1725 1 ASSERT_(COM_K_CBD GEQ 2) 
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EMAINING); 
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bYNCRR 
EMAINING) %; 
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HANDLER 
NABLE FREE 

INIT_DSC(XR 
CDSC_NAM) = 

C$ 

C$ 

C$ 

C$ 


§ 
T 
B 
D 
Dd 
D 
D 
E 


SDSC = BLOCK(8,BYTEJ %; 
CRE PECL ARE 
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SGET_ATTS_LIST (entry C, entry] ...) 
Where: 
entry = (name, attribute, type) 
name = the name of the variable that is to receive the attribute 
value. The variable will be declared and initialized by 
this macro. 
attribute = the attribute name. 
entry = the type of attribute value: 
ENTITY 
ENTITY_LIST 
NULL 
NUMERIC 
STRING 
STRING_LIST 
This macro defines a macro called $GET_ATTS_INIT, which must be 


executed before the attribute List is used. The actual list is 
named ATTR_LIST. 


$GET_ATTS_LIST CJ= 
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SGET_ATTS_DEFINECent 
_DEF 
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COMPILETIME 
ATTS_INDEX = 1; 


$GET_ATTS_DEFINE (%REMAINING) 


LOCAL 
ATTR_LIST: VECTORLZLENGTH * 5 + 1, LONG] 
INITIAL (ZLENGTH, 
$GET_ATTS_ENTRY (X%REMAINING) ); 


ZASSIGN (ATTS_INDEX, 1) 
$GET_ATTS_ASSIGN (REMAINING) 


ZASSIGN (ATTS_INDEX, 1) 
MACR 


ZQUOTE ZXQUOTE S$GET_ATTS_INIT = 
souoreegs ta tNE ENTRY (ZQUOTE XEXPAND %REMAINING) 


ry) = 
SGET_ATTS ENTRY (ZREMOVE (entry)); 


SGET_ATTS DEF _ENTRY (name, attribute, type) a 
ZIF NOT XIDENTICAL (type, ZQUOTE NULL) ZTHEN 
RIF ZIDENTICAL (type, ZQUOTE STRING) ZTHEN 


LOCAL 
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name: $DSC VOLATILE 
ZELSE 
LOCAL 
name: LONG 
<F1 
XFI 
i, 
$GET_ATTS FRTAYEontr yg = 
SGET_ATTS_LIST_ENTRY (ZREMOVE (entry)) 


SGET_ATTS_LIST_ENTRY (name, attribute, type) = 
attribute, XNAME (*cop$k_', type), 0, 


we (type, ZQUOTE NULL) OR ZIDENTICAL (type, ZQUOTE STRING) 


0 
ZELSE 
; WORD (4, 0) 


$GET_ATTS Assiententry) = 
SGET_ATTS_ASG_ENTRY (%REMOVE seeaty’? 


ZASSIGN (ATTS-INDEX, ATTS_INDEX+ 


SGET_ATTS_ASG_ENTRY (name, attribute, type) = 
; ZNAME (name, ‘_STATUS') = ATTR_LISTCZNUMBER(ATTS_INDEX) +2); 


RIDENTICAL (type, ZQUOTE ENTITY_LIST) OR 
RIDENTICAL (type, ZQUOTE STRING_LIST) 


BIND 
XNAME (name, ‘ COUNT’) = 
ies ATTR_LISTCZNUMBER(ATTS_INDEX)+3]+2: WORD; 
i, 
$GET_ATTS INI _ENTRYCent ry = 
SGET_ATTS-INI_VAR (ZREMOVE (entry)) 
ZASSIGN (ATTS-INDEX, ATTS_INDEX+5); 
SGET_ATTS_INI_VAR (name,attribute, type) = 
ZIF NOT XTDENTICAL (type, QUOTE NULL) XTHEN 
ZIF ZIDENTICAL (type, ZQUOTE STRING) XTHEN 
ef SINIT_DSC (name); 
es ATTR_LISTCXNUMBER(ATTS_INDEX)+4] = name 


<o- 
Ram 


. 
e 
. 
° 
a 
© 
- 
o 
. 
o 
. 
. 
7 
o 
. 
a 
° 
a 
o 
. 
o 
. 
e 
° 
o 
. 
6 
7 
e 
. 
e 
. 
9 
. 
° 
. 
e 
. 
oe 
. 
Oo 
. 
7 
. 
e 
. 
° 
o 
. 
& 
e 
. 
e 
. 
S 
o 
e 
2 
e 
° 
e 
. 
o 
7 
ao 
7 
o 
. 
. 
o 
. 
ae 
. 
. 
. 
o 
- 
a 
7 
* 
7 
e 
. 
a 
° 
o 
2 
7 
- 
e 
a 
7 
6 
om 
. 
- 
7 
. 
e 
7 
o 
- 
a 
. 
. 
. 
o 
. 
o 


2 
CRE_TRANS 1b-56 -1984 01:08:56 AX-11 Bliss-32 V4.0-74 
v04=000 User Literal Definitions 12-808- 1382 04:08: 36 eBRTS2 SRE CRETRANS.B32;1 
$ ¢ 1826 } ROUTINE CRE_DIAG(ERR, OPT): CAL_CTXREG = 
; 6 1832 1 !e4 
; 7 1855 1! 
3 rs 1328 ! FUNCTIONAL DESCRIPTION: 
; rs 1928 : This routine is called to issue a diagnostic on the COPY statement. 
P se 1860 1 ! FORMAL PARAMETERS: 
; £6 1861 1! 
> 264 1306 4 ERR - error diagnostic to be issued. tay 
: 265 180 es. OPT = zero or more optional parameters or additional messages 
> 266 1864 1! to be included with the diagnostic. 
; 267 1865 1! 
; 268 1866 1 ! IMPLICIT INPUTS: 
: 269 1867 1! 
: 270 1868 1 ! NONE 
:- grt 1869 1! 
3; ee 1870 1 ! IMPLICIT OUTPUTS: 
3; a> 1871 1! 
: 274 1e74 1! NONE 
3: are 1875 1! 
; 276 1874 1 ! RETURN VALUE: 
s er 1875 1! 
; $f 1876 1! Status value 
3; 279 1877 1! ; 
; 280 1878 1 ! SIDE EFFECTS: 
s gel 1879 1! 
: 282 1880 1! NONE 
: 283 1881 1! 
3: 6284 Ieee 1 !-- 
: 285 1883 2 BEGIN 
: 286 1884 2 EXTERNAL REGISTER 
> 287 1885 2 CTX =  COM_REG_CTX: REF CTX_BLOCK; 
; 288 1886 2 LOCAL 
: 289 1887 2 2 VECTOR(255+2); 
: 290 1888 § LTI 
: 291 1889 ACTUALCOUNT, 
: $36 1890 CALLG; 
;: @ 1891 
3 294 1n36 DCO) = 0; 
: 295 189 48 = ERR; 
: 296 1894 Df2) = 0; 
3 4 1392 IF .ERR NEQ SOR$_CDDERROR THEN DCO] = 2; 
; 299 1897 DC.D Set = SOR$_CDDERROR; 
: 300 1898 DC.OLO *64 = 1; 
: 301 1899 DE.DCOJ+3) = .CTXCCOM_CDD_PATHI; 
3 oF 1900 CHSMOVE ( (ACTUALCOUNT (3-1) #ZUPVAL, OPT, DC.0C0)+4)); 
: 30 1901 DLO] = .DL0] + ACTUALCOUNT() + 2; 
3; 304 1O86 RETURN CALLG(D, SORSSERROR); 
s 305 190 
: 306 1904 1 END; 
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»PSECT 
00000000v 00000 _CRE_CLEAN_UP: 
. LONG 


-PSECT 
00000000 00000 CDD__ATTNOTFND: 
- LONG 


-EXTRN 
-EXTRN 
-PSECT 
003C 00000 CRE_DIAG: 
«WORD 
5E FCOO E 9E 0000 MOVAB 
E D4 0000 CLRL 
Q4 AE 04 AC DO 00009 OVL 
08 AE D4 QOO0E CLRL 
001C823C —s BF 04 Ag D1 00011 CMPL 
03 13 00019 BEQL 
6E 02 DO 00018 MOVL 
50 6E DO OOOIE 18: MOVL 
04 AE4O 001C823C 8F DO 00021 MOVL 
50 6E DO O002A MOVL 
08 AE4O 01 dO po bss MOVL 
50 6E DO 00032 MOVL 
OC AE4O 0140 CB 00 00035 MOVL 
51 6£ 9A 0003C MOVZBL 
51 07 0003F DECL 
51 04 C4 00041 MULL2 
50 6E DO 00044 OVL 
10 AE4O DF 00047 PUSHAL 
08 AC 51 00048 MOVC3 
50 6C 9A 00050 MOVZBL 
50 6— CO 00053 ADDL2 
6E 02 AO 9E 00056 MOVAB 
000000006 00 6E FA OOOSA CALLG 
04 00061 ET 


Routine Base: SORSRO_CODE + 0000 
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<CRE_CLEAN_UP=_CRE_CLEAN_UP> 
SORSRW_PICDATA,NOEXE, 


SORSSDEF fone SORSSERROR 


SORSRO_CODE.NOWRT, 


OoR—momoiun 


RO 
#1868348, D+4C(RO] 


Pe Sete Se Be Se Oe Be Oe Be Be Be Oe Be Be Be Be Be Be Se Be Be Be Be Be 


an Wo nN Mm ww 
oO on - = - 
~ aon oe Oo on 
om - -— cm 
e 
ao rer ee ee ee ee es 2 ee ee es ee 2 
«a 
a 
; - 
| 
wr 
we) 
~o@o 
a . 
ow 
Zz 
wae | 
>a 
— 
ww | 
ma 
) tw 
or 
nv 
“—a < 
~W a 
@- 8 
™N - 
ee) so w 
—e ma -—- Oo w 
‘a ~ a ae 
«xO N bd u © 
} «wn = <« . A «= 
| >uw NO zz OS [4 
aa@msw ks to . 
~ @ wu MAC 
>oa a‘ 2o 2s 
on “. Ba —A—RMWeAA— wu 
wee ~~ NNTMBVe~ww~B-B 
“7 «* | oe | 
woo oo 
on . Qo 
oe w Qa ~ Ijin Zs 
es <= Quwiagnw JjojogTtsion 
on = oO>awamd>rauniga>- 

w BOzZaocomwwrsaoodw 
wv ° - *EUOIOF+-OACMVEe 
eoco . = 
aon ~ ba 
om >? a 

i) Qa 1 
aa a iv) 

Nu oee® _— w - oe oe 
mn w a A AA 
‘oe w wow - ue 

oor « 

A OCOn eK KKK NUNCM 

[2 4 Ss BDOOOOOCOCOOOCOSOCOCOOO 

- cS BDOOCOOCOCOOCOOCOOCOoOOCO wo 

” oOo OOOooooo[o°o°o°oocm S 

oz TFT OfNenK OUNMOONUs 
ow 4 O0QnrVlrQaobr OuuMo + 
—e o nd 
VOVKNNOCOK— Nu a 
oo faite Ors OOOOMD oO 
s oa &- Vv vw 
2 t=] @ v 
Se oe et oO 
aQaeae 3 O24 wv YL f°] = 
ooo 2 wu oo Oo = A 
ere CO Ieee o a 
VVLwU (24 oO oO 
www FA ws ee “ 
>>> wz 
” =<zo 
oa Se ve za2ae ee 
www  Oum a 
waoaac @Oo @ -w ou. wv oO owmo “ 
“o 2 we oe mom wv oww o 
ce > t @ 
oa a ae 
om t - eh Ad [So] av 
~ tas + oe ww ac w oO w oO Pad 
—- wort oO w uN Oo So te 
C 2@ewoez ss ww Z oa o a 
- &eYMEFw2sy oO « oO Oo a 
e Zz Ss Oo o °o 
o wi oOo wu -a o Cc « 
a 2 wu J wa oOo o 
_ @o--r- aw oO oO 
—~ 
os = N 
. & w . 
oe «= w 
Land a 
ONION ~ 
4 ~ 
2 
+e WOr-DOO-wMTN 
ee OOOCOCCe Tee oO 
FA AOROOCOFPOOOO w 
23D Serer rer 
a 
N 
- 
” 
bd a 
Zz € 
< te 
=S DOO WUMTINOF- a 
- COnrccccenee—— | 
iT) PYAR MN IRI PIM) °o 
-7§ « 
« 
> See rererererersarse tere . 


2 
Sep-1986 15:10:31 ESoRTS2<SRe SCRE TRANS 039; 1 


1 
1 


User Literal Definitions 


CRE_TRANS 
=000 


a=) 
" . . 
wo °o 
@ ~ v 
| . - Cv - 
v - w ‘= Cc 
“oo - vw & a 
w —- = a = 
i. 4 eo ££ + £ ‘= 
=< . x= aad ~ 3 
= w ~~ e bad 
=) Cc oor + 
i =z ao cEwr oOo ow 
=) o c «--@ = 
< - Boe Ow wv 
vw we 2 eo o9o ¢ 
- - — oe -_ ~ 
ee jj ££ c a 
~ a ev Oro Cc es 
— a ao > —- wo Set 
w a. wm ow oro au a_a 
” we 30 oor o-~— a alana 
“ a ~e ae a MWmn 
mo 2 ~ Aon - © SS 8 SS Bete 
Oo b> | ~~ Bo’. ow Ee WMA KI 
t wo —= Ce = << mvUUUUWwW tt i 
a c=) oper wu a CD a or et ed oe 
= ao) c ££ = had 2eeeeeerrre 
oO ~ oe ¥v ec ~ A LL La te oe 
a aw —- 27 Ow a 2 = Se td ae 
i) = ewrcovo «& —- 5253232325222 
bo “#oor +o ~ MSSZSS2SFZwww 
. ~ Oo a © w" 
- a j Orr 2 wr «o 
[ee) ££ -_- “ncwravc =) Ses 
n” iad o@or S06 “we 
_ fiw t owe Cv) wr bd 
ae ao) ew KOO & rw = ow s sz 
oO Cc ToT are Ooc ae ja w zvVVo 
ft a on no °o ao . .- wee 
oo o-C eeCcv on be => eae 
” vo eeu fe c xu Wee WO Ie 
a ~ cw oc a - mw WMO dwt ow 
_ a Or we BO +3 z v> Zu Zzevo< “wz 
“ - a te oO °o <uwetaevorto- 
ca ~woeaeov ec a ra ZO YUOoODMOMVYOS 
. sof HOM — uw seeeceeceeuees 
= eo ute 1 © Ow °o ca YVVYVVVYVUYVYUYUYUOWY 
oO Orr ee ore & - [vulvelvelvelververeeryelveyes) 
oO wn ~ ovuvor- of eaeaccaca&a&ca&cx 
= a oo —@i @ #eeeupeepenes 
wv 2222832 co bef bk be Oe ne Ok Ok Oe Be 
. @ £tor i Ft ~ - PAP CPAAAAA AA 
v ~ Peer OHO 2 SL anaanaaaaaan 
oO 7) ol a2aGQAaG8Ba8Rka 
a) oe c ee ] ow =) WWVVVUYYUUWY 
‘ z «a = fee 
Qa oOo « a oz 
a | —_— | wa 
ee) - - ceca . ba 
— a. ay hd -— Lod o w te w _ 
“o _ c mw w uw ed caiben bd wa 
ww e=- «& ” ” bed ” rc “Ow &— es < +4 wn 
a ve +f ww Ye ue ve ” _— a “va ww ws zm vu 
=! ”"Y SF F- oO «uw “ -— = - ww o — 2: a . wee ou 
w w OF w J O oO ~ a wa - w Haart aw +O 
_ a t > d 4 qd a. -_- Ss —- = Ww < Jw oe WO IS ‘es 
aw a eS a = = + ov - nn MwWMOdweJIow aa 
’ 4 Wf & FM a -—- ww O w << ~~ «vw w 4 ee Se NOW ad and 
uw <= - < wor Oo =z =z > @o ww 2 <EZ Ruuwwit ator pp 
a Zz =£ Q& —O- «< - So &- SF fer we @ Kae <«<~O4ODQAvvV0a =x==x 
YL oOo rere aves o — 2a 2Zwre ee} uw Z@ zavvi eee ON 
4 | Y v } w mw - < 
uw _— <= — ot — Or w vw 
P4 YY = po |  ] _— aw wo i] Oo 
_ 2 a a a | =) Mw Ph — 
_— —_ oO = = oS _ 
- =. & - _ a « ” ‘ 
oO + ry 
Gl llr ew emi cm ewe wit twew emi sm ewe teserereseceemeesermemsoe 
SL  NININII NII OIONOIONIOIONIONIONIOS 


See SENSU UNAM MM MMMMS FS o Ia SET RAANAARARD OOOO DOORN EN 
IOI OOO OIC OOO PI SF ST ST TT ST ST TT TNA OOOO O 000 


Deel cee eel ce cel ce eel se ee ce el ee ee ee ee ol eel ee el ce el ee el ce ee ce ee ee ee eh ee ee cl ee el el el el oe el el el el el el el ee el 


aaaaaaaaaa 


OK UN TNOP- DOO MUM TNOR. DHOOM TMNOR. OHO CUM TN OR. DHOOM TMNOR. DOO UMNO 
SUNS AA MMP MMMMM ad oF SF ST TTT TALIA OOOO DSOOORRANARAR 
OVEN PD PND DD DD DPD EDD DD DD DD DD DD PAVIA PET PAPE IT 


FPS OSHS OSHS ESTO HS HS SSIS HS HS HS HS HS HS HS HS HS HS HS HES ESS ESHEETS SSS SS HS TS FS SSSR FS SS*S*S HS HSS ISTO FS HS HS TSHR LS FO CR SRS 


, 2 
CRE_TRANS 16-Sep-1984 01:08: AX-11 Bliss-32 V4.0-74 Page 11. 
v04-000 User Literal Definitions 12-808-1 382 94:98:39 SORT32.SRCJCRETRANS.B32;1 . (7) | 

| 

3 77 1973 LAST_OFFSET, 
s- or 1974 STATOS; 
. oF 1975 
; 380 1378 SGET_ATTS_INIT; 
5 Sel 197 
3 1308 Get the attributes we need for this routine 
: 4 P 1980 STATUS = SCDDSGET_ATTS(context = CTXCCOM_CDD_CTX], | 
: 5 P 1981 Location = FIELD_LOC, | 
; 386 1388 st = L : 
H 87 198 IF NOT .STATUS THEN CRE_DIAG(SORS CDDERROR, .STATUS); | 
; 589 1986 IF NOT .DATATYPE_STATUS THEN CRE_DIAG(SORS. BADPROTCLS; | 
: 390 1986 ! Ignore items of type VIRTUAL FIELD (Datatrieve COMPUTED BY). 
: 59 1987 : Ignore unnamed fields | 
: 9 1989 IF .DATATYPE EQL CDDSK_REC_DTYPE_VIRT OR 
; 94 1990 NOT .FIELD_NAME_STATUS 
; 395 1991 HEN 
; 396 1336 BEGIN 
; 397 199 ; STRS*REE1_DX(FIELD_NAME); 
: 398 1994 RETURN .FIRST_OFFSET; 
; 399 1995 2 END; 
: 400 1996 2 | 
3 ret ib a4 4 See it we're dealing with a REDEFINES clause... | 
: 40 1999 2 IF .DATATYPE EQL CDD$K_REC_DTYPE_OVERLAY 
> 404 2000 2 THEN 
; 405 2001 2 IF NOT .OVERLAYS_STATUS 
: 406 $oo8 THEN 
: 407 200 BEGIN 
; 408 2004 CRE_DIAG(SOR$_BADPROTCL); 
> 409 2005 RETORN .FIRST OFFSET; 
: 410 2006 3 
3 6411 Spee 2 
: 412 008 2 RETURN CRE_OVERLAY_FIELDS(.OVERLAYS, .OVERLAYS_COUNT, .ROOT, 
: 413 2009 -FIRST_OFFSET, .GROUP_OFFSET); 
: 4146 sore 
: 4615 011 
; 416 sols 2 ! It wasn't an overlay, so it must be a field. 
> 417 013 2 i | 
; 418 sors § ' Set up some defaults 
: 419 015 ! 
; $39 B16 § 
3 $s) A IF .BASE_STATUS AND .BASE NEQ 10 
: it $4 CRE_DIAG(SOR$_ILLBASE); 
: : 5 3 1 IF NOT .SCALE_STATUS THEN SCALE = 0; 
: 4 > 0 : IF NOT .DIGITS_STATUS THEN DIGITS = 0; 
; 428 024 
; 429 5 
3 oy § Check Length and offset 
: 43¢ 0 8 if NOT .OFFSET_STATUS 
ee | 0 THEN 
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; 434 030 BEGIN 
; 4355 031 OFFSET = .FIRST_OFFSET * 3 
: 436 03 If NOT »ROOT THEN CRE "piaGisors -MISLENOFF); | : 
: 438 034 IF (, OFFSET AND 7) NEQ 0 ; 
; 439 035 THEN 3 
; 440 0 $ SGin ; 
> 441 0 OFFSET = (.OFFSET+7) AND NOT 7; | 3 
; rr 038 CRE “DIAG(SORS _BADLENOFF); 3 
> 44 039 END; : 
3; 444 040 IF NOT “LENGTH_STATUS OR .LENGTH EQL 0 

> 445 041 THEN 

; 446 bes 

3: 447 04 LENGTH = 8; 

> 448 044 CRE_DIAG(SORS$_MISLENOFF); 

: 4469 2045 END; | 

; 450 046 IF (.LENGTH AND 7) NEQ 0 

: 451 047 THEN | 

; 12g 048 EGIN 

s 65 049 LENGTH = (.LENGTH+7) AND NOT 7; 

3; 454 2050 3 tae _DIAG(SORS  BADLENOFF); 

s 655 2051 2 END; 

; 456 spes 

: 457 205 ' Convert Length and offset from bits to bytes 

; 458 2054 ! 

; 459 2055 LENGTH = .LENGTH / 8; 

; 460 2056 OFFSET = .OFFSET / 8; 

: 461 soee 

; 46 058 eee 

; rh $p2R Resolve the OCCURS clause and decide where this field ends. 

: 465 2061 iF NOT .DIMENSION_STATUS 

; 466 $006 THEN 

3; 467 206 LAST_OFFSET = .OFFSET + .LENGTH 

; 468 2064 ELSE 

: 469 2065 

; 470 2066 IF .DIMENSION_COUNT NEQ 1 

> 471 st 3 

» £5 068 CRE DIAG(SORS MULTIDIM); 

s 67 2069 3 LAST OFFSET = OFFSET + .LENGTH * CRE_OCCURS_CLAUSE(.DIMENSION) ; 

: 474 070 END; 

3; «475 071 

: 476 O76 

3 477 07 ! Check the Length. 

; 478 074 ' 

; 479 075 IF (CASE .DATATYPE FROM 0 TO 35 OF 

s § 076 SET 

: 481 077 CDSC$K_DTYPE_2 

: 4B¢ 078 OSCSK~DTYPE-T): LENGTH GTRU ZX'FFFF’; 

> 48 079 CDSC$K"DTYPE—BU, 

: 4 080 DSCSK-DTYPE-B): .LENGTH NEQ 1; 

: 485 081 siti ths Be 

3 ty] 0 § DSCSK_DTYPE_wWJ: »LENGTH NEQ 2; 

3 rt 0 CDOSCSK_DTYPE_LU, 

, § 084 DSCSK_DTYPE_L 

: 489 085 DSCSK“DTYPE Fd: .LENGTH NEQ 4; 

; 690 CDSC$K_DTYPE_QU, 
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User Literal Definitions 

FIELD_NAME, 

.DATATYPE 

;GROUP_OFFSET+. OFFSET, 

.LENGTA, 

BRM 

“PRM O. 

Any children? 

if .CHILDREN_STATUS 

THEN 

ET = 0; 

M 1 TO .CHILDREN_COUNT DO 
CDDSGET_ENTITY_CELL(context = CTXCCOM_CDD_C7xJ, 
CHILDREN, 


HRAEAEAPAPEAPEMMINGIN I 


WH ODR NAAR UN ODO SRA RNR O00 SOU nD o-oo om 
vvv 
“Oo e--4 OW 


: CHILD_LOC); 


ao 
m 
a 
lol 
2 
; 
2 


BEGIN 
CRE_DIAG(SORS$_BADPROTCL, .STATUS); 
RETORN .FIRST-OFFSET; 


END 
CHILD_OFFSET = CRE_FIELD(.CHI 
a .CHILD_OFFSET, .GROUP_OFF 


LD LOC, F 
SET+.OFFS 
END; 


STRSFREE1_DX(FIELD NAME) ; 
RETURN .LAST_OFF SET; 
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INFO#250 L1:1989 
vetereosed LOCAL symbol pararyee is probably not initialized 


peleree ed LOCAL symbol OVER AYS is probably not initialized 
Peterenced LOCAL symbol nh is probably not initialized 
vetocuored LOCAL symbol Lng is probably not initialized 
Referenced LOCAL symbol DIMENSION is probably not initialized 
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00000000 00000000 00000000 00000005 00010006 Q000000A 00094 P.AAA: .LONG 10, 65542, 5, 0, 0, 0, 65562, 4, 0 : 
00000000 00000004 aah OOAC : 

000 04 00088 - WORD - 0 : 

00000000 00000004 cooreers 00 444 23 toe 0. 5563, 4, 0 : 

00000000 00000004 0001003A 300 099 000 -LONG 0, 65594, 4, 0 : 

00 004 OE0 WORD 4, 0 : 
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00000000 00000004 0001001F 0 00 090 ore Lone 0. 99567, 4, 0 3 

00000000 00000004 egdbeead 00 0 ? : § - LONG 0, gP768 4, 0 ; 

00000000 00000004 suneoaeds™ 0000 ° 1b¢ -LONG 0, 5569, 4, 0 ; 

00000000 00000002 wedeeede™ 00 000 a - LONG 0, 5593, 2, 0 ; 

00000000 00000002 00010036 000000 0 4 “LONG 0, 65590, 2, 0 ; 

00 004 144 «WORD 4, 3 

00000000 00000002 00010024 00000000 gies -LONG 0, g9572. 2, 0 3 

00 Bae B12 «WORD 4, 3 

000000 15¢ - LONG 3 


«EXTRN CDDSGET_ATTS, CDDSGET_ENTITY_CELL 
O3FC 00000 CRE_FIELD: 
«WORD 


| 
| 
Save R2,R3,R4,R5,R6,R7,RB.RI : 1916 
59 000000006 00 9E 0000 MOVAB STRSFREE1_0x, R9 : 
58 FE93 CF 9E 0000 MOVAB CRE DIAG, RB ; 
5E FFO4 CE 9E 90005 MOV 73 2(SP), SP : 
28 «AE FFIA CF OOCC 8F 28 0001 MOVC3 #204, P.AAA, ATTR_LIST + 1968 
FA AD OE 90 0001C MOVB #14, FIELD NAME+2 + 1974 
FB OAD 02 90 00020 MOVB #2, FIELD _RAME+3 ; 
F8 AD B4 00024 CLRW = FIELD_NAME ; 
FC AD D4 00027 CLRL. «FIELDNAME +4 ; 
3c OA FB AD YE OO02A MOVAB FIELD-NAME, ATTR_LIST+20 ; 
50 AE 6E 9E 0002F MOVAB OFFSET, ATTR_LIST#40 ; 
64 AE 04 AE 9E 00033 MOVAB LENGTH, ATTR7LIST+60 : 
78 «AE 08 AE 9E 00038 MOVAB DATATYPE, ATTR_LIST+80 ; 
90 AD OC AE 9E 00030 MOVAB BASE, ATTR_LIST+100 F 
AG AD 10 AE 9E 0004¢ MOVAB DIGITS, ATTR_LIST+120 : 
B8 AD 14 AE 9E 0004 MOVAB SCALE, ATTR_CIST+ : 
CC AD 24 AE 99E 0004C MOVAB CHILDREN, ATTR_LIST+160 ; 
EO AD 18 AE 9€ 00051 MOVAB OVERLAYS, ATTR-LIST+180 : 
F4 AD 1C AE 9E 00056 MOVAB DIMENSION, ATTR_LIST+200 ; 
28 AE 9F 00058 PUSHAB ATTR_LIST > 1982 
04 AC 9F 0005 PUSHAB FIELD LOC : 
0144 CB 9F 00061 PUSHAB 324(CTX) : 
000000006 00 93 FB 90065 CALLS #3, CDDS$GET_ATTS : 
57 0 pO 0006C OVL RO, TUS : 
0B 57 £8 OO6F LBS = STATUS, 1$ > 1983 
57 DD 00072 PUSHL ST ; 
001¢823¢ BF DD 9074 PUSHL 41868348 ; 
68 2 FB OO7A CALLS #2, CRE_DIAG : 
09 70 AE CE 9070 1$: BLBS DATATYPE STATUS, 2$ : 1986 | 
001¢8234 ar DD 00081 PUSHL #186834 : 
68 1 FB 99 7 CALLS #1, CRE_DIAG : 
00000101 = 8F 08 AE p OBA 2$: CMPL DATATYPE, #257 : 1989 
08 34 AE EB 6 3 LBS _- FIELD_NAME_STATUS, 4$ : 1990 
F8 AD SF 00098 PUSHAB FIELD NAME : 1993 
69 | FB 98 #1, STRSFREE1_DXx ae 
00000102 = 8F 08 AE D1 on} ATATYPE, #258 : 1999 
0c D8 AD tg OOAA OVERLAYS_STATUS, 6$ > 2001 
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De De 
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001¢8234 ef DD OOOAE PUSHL #1868340 
68 1 Fe B4 CALLS #1, CRE_DIAG 
0101 3 B7 5$: BRW 
7E o¢ AC 7D OOOBA 6$: MOV FIRST_OFFSET, =(SP) 
AC pp BE PUSHL 
7E DE Ad 3C 000C MOVZ2WL OVERLAYS_COUNT, =(SP) 
28 3=60AE ODD C3 PUSHL OVE 
0000v CF 0 FB C8 CALLS rh CRE_OVERLAY_FIELDS 
OF 8 AD £9 a9¢ 7$: BLBC = BASE_STATUS, 8$ 
OA C AE 01 000D CMPL ASE? #10 
9 13 990 BEQL $ 
001¢8242 8F DD 000D PUSHL #1868354 
6 01 FB OO0DE CALLS #1, CRE_DIAG 
03 BO AD E OO0E| 8$: BLBS SCALE RETATUS. 9$ 
14 AE D4 OOOES CLRL  SCALE~ 
03 9C AD EB OO0EB 9S BLBS § DIGITS_STATUS, 10$ 
10 AE 04 OOOEC CLRL DIGITS” 
12 48 AE cg OOOEF 10$ BLBS OF FSET_STATUS 
6E 0c ac 03 78 O00F3 ASHL #3, FIRST AOFRSET. OFFSET 
09 08 aC EB 000F8 BLBS ROOT, 11$7 
001C8260 8F DD OO0F PUSHL #1868384 
68 01 Fe 0010 CALLS #1, CRE_DIAG 
07 6E 93 00105 11$: ITB ~—- OF FSET, “#7 
11 13 00108 BEQL 12$ 
50 6E 07 C1 00104 ADDL3 #7, OFFSET, RO 
6E 50 07 CB 0010 BICL3 #7. RO, OFFSET 
001C821A 8F DD 0011 PUSHL #1868314 
68 01 FB 0011 CALLS #1, CRE_DIAG 
05 5C 6 AE. «COED 00118 128 BLBC = LENGTH_STATUS, 13$ 
04 AE D5 OO11F TSTL LENGTH 
0D 12 00122 BNEQ 14 
04 AE 08 DO 00124 138 MOVL 4&8 LENGTH 
001€8260 8F DD 00128 PUSHL #1868384 
ra: 01 FB OO012E CALLS #1, CRE_DIAG 
07 04 AE 93 00131 14$ BITB ENGTH #7 
13 13 00135 EQL $ 
50 04 AE 0? ci 00137 ADDL3 #7, LENGTH, RO 
04 AE 50 07 CB 0013C BICL3 #7. R 
001C821A er DD 00141 PUSHL #186831 
BB 1 FB 00147 CALLS #1, CRE_DIAG 
04 AE 08 C6 0014A 15$ DIVL a8, LENGTH 
6 08 C6 0014E DIVL2 #8, OFFSET 
5 04 AE D9 91 1 MOVL LENGTH, R2 
06 EC AD €E8 00155 BLBS b MENSI{ON STATUS, 16$ 
55 6E 52 €1 00159 ADDL3 OFFSET, LAST_OFFSET 
1— 11 0015D BRB ; § 
01 F2 AD 61 0015F 168: CMPW DIMENSION_COUNT, #1 
9 13 0163 BEQL -17$ 
001C826A 8F DD 0016 PUSHL #186 
68 1 FB 00168 CALLS #1, CRE_DIAG 
1¢ «AE DD IGF 17$ PUSHL DIMEN 
0000v CF oi FB 00171 CALLS #1, CRE_OCCURS_CLAUSE 
0 2 C4 178 MULL2 R2, R 
55 : 6—E C1 0017 ADDL3 OFFSET, RO Last gOF FSET 
23 09 08 AF CF 170 188: CASEL BATATYCE YPE, ho, 
0071 -  006C 004 006 0182 19$: WORD 
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04 AE D7 00214 DECL —_ LENGT ; ; 

1F 4 A Di 17 31$:  CMPL . NGTH, #31 t 2099 F 

Q 1 0021B BRB 5 : ; 

1F D1 0021 38: CMPL =-R2, #31 + 2106 : 

"1 c m8 Han “1 bag 7 TATUS, 35$ * 2122 

001¢825A gf DD PUSHL #1868878 : 3) 5 : 

68 1 FB C CALLS #1, CRE_DIAG : ; 

9C AD 00000000° EF D0 0 F MOVL  CDO__ATTNOTFND, DIGITS_STATUS : 126 ; 

gA EC AD E 7 35$ BL8S DIMENSION STATUS, 40$ + 21 : 

E 6A 7D 00238 MOVQ (PRM), -(%P) + 2149 : 

1¢ AE DD 0 F PUSHL SCALE + 2148 ; 

10 AE DD 0024 PUSHL LENGTH + 21467 ; 

53 10 AC 10 AE C1 00244 ADDL3 OFFSET, GROUP_OFFSET, R3 + 2146 ; 

53 DD 0024A PUSHL 3 : ; 

1¢ «AE ODD 0024 PUSHL DATATYPE + 2145 : 

FB AD OF O024F PUSHAB FIEL LD_NAME + 2143 ; 

000000006 00 07 FB 00 28 CALLS # SORSSDEF FIELD : : 

48 C4 AD E9 0025 BLBC CHILDREN STATUS, 40$ : 3155 ; 

56 D4 0025D CLRL =‘ CHILD_OF + 2158 : 

54 CA AD 3C 0025F MOVZWL CHILDREN, COUNT, RG : 2159 : 

52 D4 00 63 CLRL : F : 

3A 11 00265 BRB 9$ : ; 

20 AE 9F 00267 36$:  PUSHAB CHILD_LOC + 2164 ; 

52 DD 0026A PUSHL | ; F 

2c «AE OOF 0026 PUSHAB HILDREN : ; 

0144 CB 9F 0026F PUSHAB 324(CTX : ; 

000000006 00 04 FB 00273 CALLS #4, eDpScer LENTITY_CELL : : 

57 50 DO 0027A MOVL RO, STATUS : : 

10 57 €8 00270 BLBS STATUS, 3s > 2165 : 

57 DD 00280 PUSHL STATUS + 2168 ; 

001¢8234 8F DD 00 Be PUSHL #186 8340 : 3 

68 02 FB 0028 CALLS CRE DIAG : : 

50 Oc AC DO 00288 37$:  MOVL Fiass OFraes, RO : 2169 : 

04 00 BF RET : ; 

53 DD 00290 38$ PUSHL R3 : 2172 ; 

56 DD 00992 PUSHL  CHILD_OFFSET : ; 

7E D4 00294 CLRL. = (SP) : 2171 F 

2c «AE «DD 00296 PUSHL CHILD_LOC : : 

0160 8 4 FB 00299 CALLS #4, CRE FIELD : 3 

56 0 pO 00 H MOVL RO, he OFFSET : 3 

(2 52 54 £3 O02A1 39% AOBLEQ > 2159 : 

F8 AD 9F O02AS 40$ PUSHAB Fi AME : 2177 ; 

69 9} FB 00 AB CALLS LO TRST REE! Dx : 3 

0 5 DO 002AB MOV. ate “OFFSET, RO : 2178 : 

04 OO2AE RET : 2180 ; 

; Routine Size: 687 bytes, Routine Base: SORSRO_CODE + 0160 . 
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86 1 ROUTINE CRE_OCCURS_CLAUSE(DIMENSION_LOC): CAL_CTXREG = o) 
SN ise 3 
290 185 | FUNCTIONAL DESCRIPTION: = 
; rh : ? i This routine generates an OCCURS clause of the form: : 
; $34 189 ! OCCURS mn CTO mJ] TIMES CDEPENDING ON name] : 
: 336 191 ; FORMAL PARAMETERS: 
; $98 138 : DIMENSION_LOC = the location code of the CDDSK_REC_DIMENSION List. 52 
: 600 195 1.) IMPLICIT INPUTS: 
; 601 19% 1: 
; 8 $186 1 | ste 
: 604 3199 IMPLICIT OUTPUTS: 
Bee 38 | ae 
: 608 2208 | RETURN VALUE: 
; ei9 2205 : The number of item occurrences. 
; 61¢ 3207 i SIDE EFFECTS: 
; 614 2209 1 NONE 
Me A 
: 617 2312 "BEGIN 
: 618 921 EXTERNAL REGISTER 
: $3) si3 CTX = COM_REG_CTX: REF CTX_BLOCK; 
: 621 P aan $GET_ATTS LIST 
: 622 P 2217 T(UPPER BOUND, CDD$K_REC_UPPER_BOUND, NUMERIC), 
; 625 P 2218 (LOWER BOUND, CDDS$KTREC“LOWER-BOUND, NUMERIC), 
> 624 P 319 (STRIDE CDDSK-REC~STRID NUMERIC). 
; 625 P 20 (MIN_OCCURS, | CDDSKTRECTMIN_OCCURS, NUMERIC) 
; 6 $ 321 (MAX“OCCURS. | CDDSKTRECTMAXTOCCURS, | NUMERIC)S; 
; rey $ ‘ LOCAL 
; 6¢9 é 4 DIMENSION, 
s 6 5 OCCURS, 
: 631 6 STATUS: 
; 6 § 
3 $37 3 SGET_ATTS_INIT; | 
3 632 9 Get the dimension attributes | 
: 637 P é STATUS = SCDDSGET_ENTITY_CELL(context = CTXCCOM_CDD_CTX), 
; 638 P List = DIMENSTON_LOC? ; OR 
; 639 P 2234 cell = 1, 
; 640 5 location = DIMENSION); 
+ 641 6 IF NOT .STATUS 
> 642 THEN 


— 


7 IESeeHNs UR St WAH eRcRE Az nme 6 


TRA 
v04=000 User Literal Definitions 


INFO#250 L1: £2286 
res eceases LOCAL symbol MAX OCCURS is probably not initialized 


L 
Referenced LOCAL symbol UPPER -BOUND is probably not initialized 


p-1 SORT ANS .B32;1 
> 643 3 BEGIN 3 
: 644 CRE_DIAG(SORS$_CDDERROR, .STATUS); : 
> 645 40 RETORN 1; ! Pretend it occurs only once : 
a ; 3 : 
: 648 p $508 STATUS = SCDDSGET_ATTS(context = CTXCCOM_CDD_CTX], ; 
: 649 P 2264 Location = DIMENSION, 3 
: 650 45 ATTR_LIST); ; 
; 651 4g IF NOT t STATUS : 
: beg 48 BEGIN ; 
: 654 49 CRE_DIAG(SORS_CDDERROR, .STATUS); : 
: 655 50 RETORN 1; : 
; 656 251 2 END; : 
oe BG | 
3 659 3254 2 1F MAX. OCCURS_STATUS 3 
: 661 2256 $ OCCURS = .MAX_OCCURS : 
: 66 2257 2 ELIF .UPPER “BOUND “STATUS : 
: obi $528 ¢ ing : 
> 665 2260 3 IF NOT .LOWER BOUND STATUS THEN LOWER BOUND = 1; : 
666 2261 3 OCCURS = .UPPER_BOUND = .LOWER_BOUND ? 1; ; 
: 668 $5eg 3 ELSE F 
3 669 3264 é OCCURS = 0; 3 
: 671 2266 2 IF .OCCURS LEQ 0 ; 
: 7 $5e% : THEN GIN ; 
: 674 2269 5 CRE_DIAG(SOR$_BADOCCURS); ; 
> 675 2270 OCCORS = 1; : 
Hoos gay a 2 
: 678 2278 g IE_NOT .STRIDE_STATUS 3 
: 680 2275 2 CRE_DIAG(SORS_BADPROTCL, .STATUS); : 
: 682 $576 $ RETURN .OCCURS; ; 
: 68 2e78 1 : 
; : 
. : 
040F 1 F 
00000000 00000004 00010045 00000005 00410 P.AAB: LONG 5, 65605, 4, 0 : | : 
000 004 00420 ORD 4. 0 : | : 
00000000 00000004 00010044 00000000 00424 LONG 0, 65604, 4, 0 : | : 
0000 0004 004 -WORD 4, 0 : | 3 
00000000 00000004 00010026 900 one 0438 -LONG 0. 65574, 4, 0 | : 
00000000 00000004 00010027 900 0 0 O44 "LONG §6O. 65575, 4, 0 : : 
00 04 0045C “WORD 4, : : 
| 
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00000000 00000004 siaechintctal ™ * ya 


nm 
@ 
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NOWSET0O 
OOLoon 


Oo 
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NNO 
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; Routine Size: 


SO —-=—000 Goo 
SE LOOM worn 


001¢823¢ 


74 
10 
53 


04 
01 


001¢8224 


4C 


001(8234 


SORSRO_CODE + 0478 


00000 CRE ee eae > 


ooo 
we & 
> 


uw 
Woo 


>-r Fe OOOMMMOO 
>oor 


Po, 
109 09 09 SI INI IO AAO 
rom Wo 


POOWOMOyS 
WT == MONRMIOM—MMOMM —fT"WNOWD 
DOOOOCOCOCOCOOOCOOOOOOOCOCOOCOOCSOOCOOCOOOOOOOCOOOOOOOoOOoOO 


OOCCOCCOCSOCOOCOCOCOSCOOCOCOOOCOCOSOOOCOOCOOOOOOOCOOOOOOOoOO 


oo 
Oo 
oo 
> 
co,» 


OBO 9T OOD? ££ -MWODO- OVO fFOWDVTVT GOD" "OOO MMMMmMmoomrn 


>rro B33S83 
2 RBSAMS ONOoowsL 


MmOouwW 
ror 


oo NO OMI 1S 9 $$ ODOITMM—-GMOI MNVOMI"DOOOMI"DOOT OOOOOON 0/0 


Sep-1986 15:10:31 ESoRTS2<SReHcRE TRANS -099; 1 


oe 0, £5573. 4, 0 
4, 


0 


MAX"OCCURS, A 
DIMENSION 


RRENSTONLOC 
#4, CDDSGET_ENTITY_CELL 
ATU 


#1868348 
oGe CRE_DIAG 
#1, RO ~ 


MAX_OCCURS_STATUS, 3$ 
eet “OCCURS; OCCURS 


UPPER_BOUND_STATUS, 5$ 

LOWER BOUND >t STATUS, 4$ 

LOWER -BOURD UNPPER _BOUND, RO 
1R0) > CURS 


6 
CCURS 


#1868324 
ah. CRE DIAG 


OccORS 
STAIDE_ STATUS, 8$ 
#1868340 


#2, CRE_DIAG 
OCCURS, ~R 
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AX-1 
SORT 


2*sreic 


-32 V4.0-7 
CRETR ANS .B 
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IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
RETURN VALUE: 
The offset of the byte following the last byte mapped by this field. 
SIDE EFFECTS: 
NONE 


685 79 1 ROUTINE CRE OVERLAY FIELDS(OVERLAYS_LOC, OVERLAY_COUNT, ROOT, FIRST_OFFSET, 
68 0 GROOP_OF FSET) 
68 1 : CAL_CTXREG_LB = 
688 ¢ 
689 8 144 
690 84 : 
$3) 8? ! FUNCTIONAL DESCRIPTION: 
69 87 This routine handles REDEFINES clauses. It forces the 
694 88 source to look Like: 
695 89 
696 90 level namel ... 
697 91 
698 $36 level name2 REDEFINES namel ... 
699 29 ° 
700 294 é 
701 295 level namei REDEFINES namel ... 
702 296 
rt? 344 FORMAL PARAMETERS: 
705 299 OVERLAYS_LOC = the location code of the entity list describing the 
706 300 overlays. 
707 301 OVERLAY_COUNT = the number of overlays. 
708 $08 - true if this is the root 
0 30 FIRST_OFFSET - the cffset, in bytes. of the byte following this 
710 304 field's prior sibling which shares the same 
305 immediate ancestor field. This is 0 for the first 
306 sub-field of a group. : 
307 GROUP_OFFSET - the offset, in bytes, from the beginning of the record 
308 of the group containing this field. 
0 
: 
4 
8 
& 
0 


WWIWNAIAIPOPININIPININININPIDS 4 2 OO OO 


SRFUN SSR VOOR un COMNOnR wo ie) 
PONMOMONPOPOPONY SO St ts oe 


MEW OO OONOUSWN— 


BEGIN 
EXTERNAL REGISTER 

CTX COMREGCTX: REF CTX BLOCK, 
PRM = REG_PRM: REF VECTORLO): 


PIPPI INIPININYNINIAINYNINNIPYNINNPYNYINININIPYINIPINININYNININYNIPYININYNINPYIPYININIPOPUNINYINIPOPPUNPONPPoPonony 


De Se Se Be Be Be Be Se Ge Ge Ge Se Be Se Ge Se Se Se Ge Ge Ge Ge Se Ge Ge Fe Oe Oe Be Ss Se Se Se Se Ge Se FHSS Se SESH Se SESH SESE SHEESH SESH Se Bees ee 


ROPOPOPOPOPONONONY 2 9 tt tt tt 


QQ NN NNN SNS 


WANN NON 


37 

= OVERLAY_COUNT: WORD; 
40 LOCAL 

4) 


FIELD_NAME : $OSC VOLATILE, 
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LAST _OFFS 


° ET, | ; 
; 24 ° OVERCAY_LOC | : 
5 P46 8 OVERLAY_S1ZE: WORD, | : 
: 745 9 STATUS; ~ | ; 
: 746 40 | : 
: ee 41 ; CRE_DECLARE_HANDLER(FIELD_NAME); : 
: 749 rk LAST_OFFSET = .FIRST_OFFSET; 5 
: 730 ad INCRET FROM 1 70 .OVERLAY COUNT DO | : 
: 3¢ P $ 46 STATUS = $CDDS$GET ENTITY. CELL (context = CTXCCOM_CDD_CTX), : 
; bP P 2347 List = OVERLAYS_ | : 
s 756 P 23468 cell = .I, | : 
3 63 349 location = oea.te smth : 
: 756 2350 IF NOT .STATUS ; 
: 757 3331 THEN 3 
; 758 33¢ 4 BEGIN | 3 
: 759 2353 4 CRE_DIAG(SORS -BADPROTCL, . STATUS); | ; 
: 760 2394 4 Re TORN .FIRST-OFFSET; 3 
: 761 355 END ; 
; £6¢ 2356 : 
: 76 P 2357 STATUS = $CDD$GET ENTITY LIST_ATT(context = CTXCCOM_CDD_CTX), | ; 
: 764 P 2358 3 entit = OVERTAY_LOC; . 
: 765 P 2359 3 ocert ute = CDDSR REC_FIELDS, F 
: 766 P 2360 3 Location = OVERLAY LOC : 
: 767 2361 3 list size. = OVERLAY’ SIZE); F 
: 768 2362 3 IF NOT .STA : 
: 769 236 THEN : 
: 770 2364 4 BEGIN ; 
: 771 2365 4 CRE_DIAG(SORS -BADPROTCL, . STATUS); | : 
: 77 2366 4 RETORN .FIRST_OFFSET; ; 
: 77 2367 3 END : 
: 77% 2368 IF OVERLAY. SIZE NEQ 1 : 
: 775 2369 | : 
; 276 3370 CRE_DIAG(SOR$_BADOVRLAY); : 
: 778 P $37¢ 3 STATUS = $CDDS$GET ENTITY. CELL(context = CTXCCOM_CDD_CTX), : 
> 779 P 2373 3 list = OVERLAY_L | : 
: 780 P 2374 cell = 1, : 
; 781 2375 Location = OVERLAY_LOC); : 
: 78 2376 IF NOT .STATUS 2 
: 78 9377 THEN : 
: 784 378 4 BEGIN : 
: 785 379 4 CRE _DIAG(SORS -BADPROTCL, . STATUS); | : 
See 80 4 RETORN .FIRST_OFFSET; 

: 787 381 END 

; 788 382 IF «1 Eat 1 | 

; «789 38 THEN | 

: 790 384 4 BEGIN 

: a4 $B : } Get the name and create the name string. 

: 79 Pp 389 4 STATUS = SCDDSGET_STRING_ATT(context = CTXCCOM_CDD_CTX], 

: 794 P 2388 4 entity = OVERCAY 

: 795 P 2389 4 attribute = CORE REC_NAME, 

: 79% 90 4 value = FIELD NAME); 

: 7? 331 4 IF NOT . STATUS TREN CRE_DIAG(SOR$_BADPROTCL, .STATUS); 

: 798 92 3 END; 


3 
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v04=000 User Literal Definitions Haast Pa eT eS Gt a Pk Pt a ut 5 
= 7 93 
: 8 94 LAST_OFFSET = MAXU( | 
:; 8 95 - FSET, | 
; 8 3 - CRE_FTELD(.OVERLAY_LOC, .ROOT, .FIRST_OFFSET, .GROUP_OFFSET)); | 
: 8 98 J | 
; 8 399 STRSFREE1_DX(FIELD_NAME); 
: 8 2401 RETURN .LAST_OFFSET; 
; 8 2402 END; 
.EXTRN CDDSGET_ENTITY_LIST_ATT 
-EXTRN CDDSGETISTRING_ATT 
O1FC 00000 CRE_OVERLAY_FIELDS: 
<WORD Save R2,R3,R4,R5,R6,R7,RB : 2279 
58 000000006 00 9E 00002 MOVAB  CDDSGET_ENTITY_CELL. R& F 
57 FACD CF 3 00009 MOVAB CRE_DIAG, R7 : 
5E 10 5 0000E SUBL2 #167 SP : 
08 AE 7C 00011 CLRQ. FIELD NAME + 2327 
6D O0ES CF DE 00014 MOVAL 8$, (FP) : 
OA AE OE 90 00019 MOVB #14, FIELD _NAME+2 > 2341 
OB AE 02 90 0001D MOVB #2, FIELD _RAME+3 : 
08 AE B4 00021 CLRW = FIELD_NAME : 
OC AE D4 00024 CLRL = FIELDTNAME+4 F 
54 10 AC 00 00027 MOVL  FIRSTTOFFSET, R4 + 2343 
52 54 b0 00028 MOVL 4, LAST_OFFSET : 
56 08 AC 3C 000 : MOVZWL OVERLAY COUNT, 6 > 2344 
55 bs 000 CLR | : 2396 
0081 31 00034 BRW $ : 
04 AE 9F 00037 1$: PUSHAB OVERLAY_LOC > 2349 
55 DD 0003A PUSHL : 
04 AC 9F 0003C PUSHAB OVERLAYS_LOC ; 
0144 CB 9F 0003F PUSHAB 324 : 
68 04 FB 00043 CALLS #4, CDDSGET_ENTITY_CELL : 
53 50 DO 00046 MOVL RO. STATUS : 
42 53 £9 00049 BLBC STATUS, 3$ : 2350 
5E DD 0004C PUSHL SP : 2361 
08 AE 9F 0004E PUSHAB OVERLAY_LOC : 
00010004 8F DD 00051 PUSHL #65540 : 
AE 9F 00057 PUSHAB OVERLAY LOC : 
0144 cB OF 00054 PUSHAB gh (CTX : 
000000006 00 9 FB 000 : CALLS #5, CDDS$GET_ENTITY_LIST_ATT : 
33 D0 9006 MOVL RO. STATUS : 
2 53 £9 00068 BLBC STATUS, 3$ : 3362 
01 6— 81 90068 CMPW VERLAY_SIZE, #1 : 2 
9 13 O06 BEQL : 
001¢822A 8F DD 000 PUSHL #1868330 + 2370 
67 1 FB 0076 CALLS #1, CRE_DIAG : 
04 AE 9F 00079 28: PUSHAB OVERLAY~LOC ; 2375 
01 pp 7¢ PUSHL : 
OC AE OF 43 PUSHAB RLAY_LOC : | 
0144 CB OF PUSHAB : | 
68 04 FB 00 CALLS 4&4, CDDSGET_ENTITY_CELL : 
0 pd 000 MOVL RO. STATUS : 


H 3 
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v04=000 User Literal Definitions 18-808- 1382 03:08:39 YeORT 2.SRCICRETRANS.B32;1 . ul 
OF 3 E8 00088 BLBS STATUS, 4$ : 3376 F 
DD 0 F 38: PUSHL STAT : 2379) 3 
001¢8234 BF DD PUSHL #1868340 : : 
67 Qe FB 096 CALLS #2, CRE_DIAG : ; 
0 4 BO 0099 MOVL 4, RO + 2380 : 
01 55 D1 $095 4$: CMPL l ral : 2382 ; 
B 12 SOAQ BNEQ § : ; 
08 AE OF Ag PUSHAB FIELD NAME : 2390 : 
00010006 = BF pd OA PUSHL #65542 : : 
OC AE 9F 000AB PUSHAB OVERLAY Loc : : 
0144 (CB 9F OA PUSHAB 324(CTXT : ; 
000000006 09 4 FB 000B CALLS #4, CDD$GET_STRING_ATT : ; 
5 D9 0008 VL —-RO,_STATUS : : 
0B 53 £8 O00BC BLBS § STATUS, 5$ + 2391 ; 
53 ODD 00085 PUSHL STATU : : 
001¢8234 8F DD 000C1 PUSHL #1868340 : : 
67 02 FB 000¢7 CALLS #2, DIAG : : 
14 AC DD QOOCA SS: PUSHL  GROUP_OFFSET + 23% ; 
54 DD 000CD PUSHL R4 : ; 
Oc AC DD O00CF PUSHL ROOT : ; 
10 AE DD 90002 PUSHL OVERLAY_LOC ; : 
0160 (C7 04 FB 9900 CALLS #4, CRE-FIELD ; : 
51 2 DO OOODA MOVL LAST_OFFSET, R1 : : 
50 51 D1 00000 CMPL =e R71, RO : ; 
03 1€ OOOEO BGEQU 6$ ; 
51 50 00 O00E¢ OVL RO, R1 : 
52 51 DO OO0ES 68: MOVL 1, LAST_OFFSET > 2394 
FF49 55 01 56 F1 OO0E8 7S: ACBL R6, #1, T, 1$ > 2344 
08 AE 9F OOCEE PUSHAB FIELD NAM : 2399 
000000006 00 01 FB OOOF1 CALLS #1, STRSFREE1_DX F 
50 52 dO 000F8 MOVL LAST_OFFSET, RO > 2401 
04 000FB RET : 3402 
0000 OOOFC 8$: «WORD Save nothing 3 ane 
50 08 ac 00 d00rE MOVL  8(AP), RO : 
50 04 Ad D0 00102 MOVL  4(RO), ; 
F8 AO OF 00106 PUSHAB FIELD_NAM : 
1 DD 00109 PUSHL #1 : 
E bb 00108 PUSHL SP : 
7E 04 AC 7D 0010D vO. 4(AP), -(SP : 
FA26 CF 03 FB 00111 CALLS #3, FREE_DYN F 
04 00116 T : 
; Routine Size: 279 bytes, Routine Base: SORSRO_CODE + 0526 
| 
| 
| 


3 
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} 
3 B19 : ; ! ROUTINE CRE_TRANS_RECORD(RECORD_LOC): CAL_CTXREG_LB NOVALUE = 
; Big 405 1 !++ | 
; 81 406 1 
3 aie rrt4 : FUNCTIONAL DESCRIPTION: | 
; 816 4uy 1! This routine accepts the location code of a record description and | 
3 gif 2 : trans.ates the record to COBOL source text. | 
3 B33 tig : } If the record cannot be translated, a diagnostic is issued. 
: . | 
; es! 414 1 ! FORMAL PARAMETERS: | 
3; § ¢ 415 1! 
3 BS? seis } RECORD_LOC - the location code of the record's terminal node. | 
: HH seis : IMPLICIT INPUTS: 
3 4 3430 : CTXCCOM_CDD_CTX] - the CDD stream ID for the stream we're using | 
: 829 $058 1 ! IMPLICIT OUTPUTS: 
; 830 2423 1! 
: 831 2424 1! NONE 
: 832 2425 1! 
; «833 $458 1 ! RETURN VALUE: 
> «834 427 1! 
: 835 sess 7 4 NONE 
; 836 429 1! | 
3; 857 2430 1 ! SIDE EFFECTS: 
; 838 2431 1! 
; 839 $t36 1! NONE 
: 840 2433 1! 
; «6841 2434 1 Se= 
B42 $435 2° BEGIN | 
: 843 2436 2 EXTERNAL REGISTER 
3; 6844 2437 2 CTX = COM_REG_CTX: REF CTX BLOCK, 
: 845 2438 2 PRM = REG_PRM: REF VECTORC2); 
> 846 2439 2 
3; 847 P 2440 § S$GET_ATTS_LIST | 
; 848 P 2441 TC(SHORT_PATH, CDD$K_SHORT_PATHNAME, STRING), 
3; 849 Pp gene 2 (PATHNARE , CDDSK_PATHNAME, STRING), 
; 850 P 244 2 ROOT, CDOD$K_REC_ROOT, ENTITY) 
; 851 P 2444 (FORMAT, CDDSK-REC~FORMAT, NUMERICS 
: 85¢ 445 (LITERALS, CDDSK-REC-LITERALS, ENTITY_LIST)); 
2 $2 44 AL 
s 54 44 STATUS; 
; 855 448 
; 856 449 CRE_DECLARE HANDLER (PATHNAME ,SHORT_PATH) ; 
: 857 450 $GET_ATTS_IRIT; 
; 858 451 
; 859 $36 ; : 
3 560 sea7 Fetch attribuzes used in this routine 
3 B06 P 2455 STATUS = S$CDDSGET_ATTS(context = CTXCCOM_CDD_CTX], 
; 86 Pp $28 location = RETORD_LOC, 
; 864 45 list = ATTR_LIST)? | 
$ 30? 458 IF NOT .STATUS 
> 459 HEN | 


INFO#250 L1:2470 
| Gotersnges LOCAL symbol FORMAT is probably not initialized 


; Referenced LOCAL symbol ROOT is probably not initialized 


CRE_TRANS s3 -1984 AX-11 Bliss-32 V4.0-74 p | 
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: 867 460 RETURN CRE_DIAG(SOR$_CDDERROR, .STATUS); 

; 508 9] The . SHORT_PATH_STATUS 
: 870 46 RETURN CRE_D AG(SORS BADPROTCL, .SHORT_PATH_STATUS); 

; Sr) 464 CTXCCOM_CDD PATH i ORT_ Set fhe address of the descriptor 

: 876 469 TF NOT ~BATANAME STATU US | 
: 874 467 - RETURN CRE_DIAG(SOR$_BADPROTCL, .PATHNAME_STATUS); | 
: 876 469 NOT .FORMAT_STATUS OR 

: 877 470 FORMAT NEQ"CDDSK_REC_FIXED AND 

; 878 47) “FORMAT NEQ CDDSK-REC~VARIABLE 

: 880 478 RETURN CRE_DIAG(SOR$_BADPROTCL, .PATHNAME_STATUS); 

: 881 47% IF gLiTERALS. STATUS NEQ CDD$_ATTNOTFND 

: ees 476 RETURN CRE_DIAG(SORS_ILLLITERL); 

> B84 2477 

; 885 soi8 ! Translate the record 

> 886 479 i 

: 887 2480 if .ROOT_STATUS 

: 888 2481 

: 889 2482 CRE_FIELD(.ROOT, TRUE, 0, 0) 

> 890 483 2 

; 891 484 CRE_DIAG(SORS$_BADLENOFF); 

: 89 2486 STRSFREE1_DX(PATHNAME) ; 

894 2487 STRSFREE1_DX (SHORT PATH); 

; 895 2488 1 


-BL 
P.AAC: .LONG 


00630 3 
00000000 00000000 00000000 00000005 18000008 00000005 00640 5, 402653192, 5, 0, 0, 0, 402653191, 5 ; 
00010038 00000000 00000000 00000000 00000005 18000007 00658 0, 0, 0, 65595, 1, : 
00000000 00000001 beng : 
0000 se 0678 -WORD 4, 0 F SF 
00000000 00000004 0001003C 9300 000 0067C ~-LONG 0, 65596, 4, 0 : 
0000 0004 0068C -WORD 4, 0 : 
00000000 00000002 00010005 8200 94 Beis -LONG 0, 65541, 2, 0 : 
000 4 6A0 -WORD 4, 0 : 
00000000 006A4 -LONG 0 : 


eee R2,R3,R4,R5,R6,R7 : 2403 
57 000000006 00 9€ 0000 HOVAB STRSFREE1_DX, R7 ; 
56 F94B CF 9E 0000 MOVAB CRE DIAG, ~R6 ; 
SE FF7C = CE 3 9005 MOV -132(SP), SP : 
Oc AE FF7E (CF 0068 «BF 3 1 MOVCS #104, P.AAC, ATTR_LIST > 2445 
C AE ?C 0001C CLRQ SHORT PATH ; 
74 AE 7C OOO1F CLRO ATHNAME : 


EE 


— 
| 
| 


kK 53 
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F MOVAL 10$. (FP) : 
2 3 ae Of * 5 MOVB. = #14; ppATHNAME +2 + 2449 
77 —soA 9 B MOVB sf AME +3 ; 

7% «6AE O84 F CLRW PATHNAME™ : 

78 AE D4 000 : CLRL § PATHNAME+4 : | 
7E AE OF % 0 MOVE #14, SHORT_PATH+2 : 
7F oA 00 9 MOVB #2, SHORT PATH+3 : 

7¢ AE B4 00030 CLRW SHORT_PATR : 
FC} =6AD «D4 0004 CLRL SHORT PATH+4 : 
7E AE Og 30 O9¢3 MOVE #14, SHORT_PATH+2 : 
7F OA 02 90 0004 MOVB #2, SHORT _PATH+3 : 
7C «=6AE CBG 0048 CLRW  SHORT_PAT : 
FC AD D4 O004E CLRL. SHORT“PATH+4 : 
20 AE 7C AE Hi 38H MOVAB SHORT"PATH, ATTR_LIST+20 : 
6 AE OE 96 00056 MOVB #14, PATHNAME+2 ; 
77, —AE 02 90 0005A MOVB #2, PATHNAME+3 : 
74 AE B4 0005E CLRW ATHNAME ; 

78 AE D4 00061 CLRL - PATHNAME+ ; 
34 AE 74 AE 9E 00064 MOVAB PATHNAME ATTR LIST+40 : 
48 «AE 6E 9E 00069 MOVAB ROOT ATT : 
SC OA 04 AE 9E 0006D MOVAB FORMAT, ATTR T+80 : 
70 =A 08 AE 9E 0007 MOVAB LITERALS arThe 1PTST+100 : 

OC AE 9F 0007 PUSHAB ATTR_LIST t 2457 

04 AC 9F OOO7A PUSHAB RECORD Loc : 

ooooov00g 00 «| * OSB PB Sooah CALS” 3 Se cay atts ; 
BS ATUS, 1$ ~ + 2458 
“ A a 
001¢823¢ er DD 0008p PUSHL #186 348 ; 
05 18 AE €8 00095 1$: BLBS | SHORT_PATH_STATUS, 2% > 2461 

18 AE DD 90099 PUSHL SHORT “PATH~STATUS ; 2463 

0140 CB 7C he 9E 0009E 2$: MOVAB SHORT PATH 320(C1x) + 2464 
10 2C OA 3 OOOA4 BLBC ATHNAME STATUS, 3$ + 2465 
0c 54 AE €E9 OOOA8 BLBC FORMAT METATUS. 56 + 2469 
A HL ggg geet gm es 
03 04 AE p} 90082 CPL FORMAT, #3 ; 2471 
3c AE DD 00088 3$: PUSHL  PATHNAME_STATUS : 2473 

00108234 8F DD 000BB 4$: PUSHL #1868340 : 

66 02 FB 900¢1 5$: CALLS #2, CRE_DIAG 
00000000' EF 68 AE Dt ne 6$: CPL ITERALS_STATUS, CDD__ATTNOTFND 2474 
F F PUSHL #1868364 : 2476 

66 secant ¥ iB 0005 CALLS #1, CRE_DIAG 
OE 40 AE £9 00009 7$ BLBC = ROOT_STATUS, 8$ > 2480 
7E 5 00DD CLRO = = (SPY + 2482 

01 DD OO0DF PUSHL : 

0c AE DD 000E1 PUSHL ROOT : 

0160 6 ' FB OE4 CALLS #4, CRE_FIELD 3 
1(821A 8F DD OOOEB 8$ PUSHL #186831 4 > 2484 
66 selene 1 FB gore CALLS , CRE_DIAG : | 
i 
| 


CRE_TRANS 
V04=000 


; Routine Size: 


User Literal Definitions 


287 bytes, 


7E 
FE9C = sCCF 


Routine Base: 


1 
1 
74 AE OOF 8 F4 
01 FB F7 
7C =6AE «O9F QOOFA 
01 FB OOOFD 
ge 0100 
0000 001 | 

08 AC 00 001 
04 Ad 00 Bios 
F8 AO 9F Bot B 
FO AQ 9F Q010E 
02 0D 00111 
5E bp peti? 

04 AC 7D 0011 
03 FB 00119 
04 OO11E 


SORSRO_CODE + 06A8 


b-sep- 
=sen- 


9$: 


10$: 


3Be 93:96:39 


PATHNAME 

#1, STRSFREE1_DX 

SHORT_PATH 

#1, STRSFREE1_Dx 

sexe nothing 
(AP), RO 

4(RO), RO 

SHORT PATH 

PAT HNAME 


SP 
4(AP), =(SP) 
#3, FREE_DYN 


yan Bliss-32 V4.0-74 
SORT32.SRCICRETRANS.B32; 1 
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o> bed o [vu] v >> o> ” we>t ZO oo 
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w -_— vw se w - ~wwrOMw <-—e 
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>~- wo _ cw - i= tS < —-ae >> vwZz 
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-—- Vwuwe oOo - woeeiitmeaewhne. ZQvans>roc “Ow “5H —— > or 
- _ al YU vw z w “Ww wut « a Ame nW - 
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= NINN OOOO OOOO 
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DP DOPOD AOEAA DOQQ QQ 0 IIIS OPP AS AT ST AT 
BP PPP FFF FFF FDNDDDDDADDDDADADD DDD LVLVLVLVLVLVULVLV LVL LVL LVLVLVELVELVEAV ELEVEN ELVA 
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v> 


CRE_TRANS 
yon=000 User Literal Definitions 
; 954 P 254 access = READING, 
3; 955 P 254 program = 0, 
: 4 : rk description = 0); 
: 328 $36 Ignore the returned status. 
; 44 53¢ 'IF NOT .STATUS THEN CRE_DIAG(SORS_CDDERROR, .STATUS); 
; 962 554 END; 
67 6€ 69 64 61 65 52 OO7C7 P.AA 
52 45 4D 2F 54 52 4F 53 20 31 31 2D 58 41 56 OO7CE P.AA 
20 45 47 00700 
007C 00000 
SE 38 C2 0000 
08 AE 07 DO 0000 
OC AE DB AF GE 4494 
30 AE 04 QOO0E 
04 «AE 5B bdO 00011 
04 AE 9F 00015 
38 AE OF Bante 
08 AE D4 00018 
08 AE 9F OOOIE 
000000006 00 0 FB 00021 
56 50 pdO0 00028 
08 56 52 00028 
30 AE 34 BE 9A 000 ; 
34 AE 06 000 
50 30 AE 00 ta 
OE 50 D1 O003A 
03 18 00030 
50 OE D Bebz5 
30 = =AE 50 0042 
10 AE AG” sAF 12 BR 8Re 
22 «AE 34 +«O-BE 30 ‘S 004 
30 = AE 1 oo BROe 
34 +=AE 10 AE 9E 0005 
7E 7C Baoee 
10 AE 9F 000 ‘ 
3C «= AE s«é*E9'F:s«0006 
04 aC OD He 
0144 B 9F 00067 
000000006 90 6 FB 006 
6 0 00 0007 
04 0007 


; Routine Size: 118 bytes, 


Routine Base: 


SORSRO_CODE + 07E0 


_ 
wr 


~m 
wr 


-EXTRN 


192 45:95:39 ESAT b28SRecRE TRANS 099; 1 


\Reading\ 
\VAX=11 SORT/MERGE \ 
SORSSTAT, CDDSCREATE_HISTORY 


g-R5.R4.R5 RO 


ADING 
READING+4 


#14, RO 

RO, VERSION 

#18, P.AAE, BUFFER 

VERSION, aVERSION+4, BUFFER+18 
#18, VERSION 

BUFFER, VERSION+4 


>ox 
~ 


SCREATE_HISTORY 
TUS 


a eevee cine As CA ee ae 


Page ots 


2554 


i 


4 
vouz000"® User Literal Definitions 18-Sep-1984 94:98: 3 Sort 2 bRe i cae THAN 03951 Page 435 


; age 5 ! GLOBAL ROUTINE CRE_EXTRACT_RECORD 

: 966 : 1 PATH: REF VECTOR(2), 

: 967 2 8 1 PRMO, ! Parameter to SORSSDEF_FIELD 

; 968 59 1 PRM1 ! Parameter to SORSSDEF_FIELD 

: 969 60 1 ): CAL_CTXREG = 

: 970 61 1 !44 

; 971 66 1! 

3 are 565 1 ! FUNCTIONAL DESCRIPTION: 

3s 97 564 1! 

3 are oe? ' This routine looks up a record description in the CDD. 

>; 976 28 1 ! FORMAL PARAMETERS: 

: 977 568 1! 

3; 978 2569 1! PATH - descriptor for the CDD pathname of the target record 

: 979 2570 1! 

; 980 2571 +1 ! IMPLICIT INPUTS: 

; «981 $of6 1! 

; 982 573 1! NONE 

> 983 2574 1! 

> 984 2575 1°! IMPLICIT OUTPUTS: 

; #985 2576 1! ; 
; 986 es77 1! NONE ; 
: ¥ 2578 1! : 
; «4788 $228 1 ! ROUTINE VALUE: ; 
: 989 580 1! meek : 
; 44 sea : Address of the pathname description block, or zero if errors occurred. : 
; 992 $256 1 ! SIDE EFFECTS: 3 
; 993 2584 1! 

; 994 $202 1! This routine will access the CODD. 

: «4995 586 1! 

; 996 seer 1 !-- 

: 997 588 2 BEGIN 

; 998 2589 2 EXTERNAL REGISTER 

> 999 2590 2 TX = COM_REG_CTX: | REF CTX_BLOCK; 

: 1000 $29) GLOBAL REGISTER 

; 1001 236 PRM = REG_PRM: REF VECTOR(2]; 

: 108 9 

; 100 594 LITERAL 

; 1004 595 ACCEPTABLE _LEVEL = 4; ! The acceptable CORE_LEVEL 

3 1005 596 ILTIN 

3; 1006 597 ACTUALCOUNT 

: 1907 598 NULLPARAMETER; 

: 1008 599 AL 

: 1009 600 CORE _LEVEL, 

: 1010 601 PROTOCOL: vECTOREG). 

: 1011 One BUFFER: VECTOR(352,BYTE), 

: 101 60 RECORD_BASE, 

: 1Ot? one STATUS; 

3 1948 one STATUS = SCDDSSIGN_IN(context = CTXCCOM CDD_CTX)); 

: pig ts IF NOT .STATUS THER RETURN CRE_DIAG(SORS_CDBERROR, STATUS); 

3; 1018 ra: ! Perform initialization 

3; 1019 610 ‘ 

; 1020 611 PROTOCOL(O) = 32; 


a 


Ae 
CRE_TRANS ibs Sep 6 
v04=000 User Literal Definitions 14-Sep =138% 9}: 98: 3 SORT32.SRCICRETRANS. b3 31 


61 PROTOCOLET = BUFFER 
CTXCCOM_CDD_PATH] = bat THO]; 
IF CDDS “AT TROTEND EQL 0 THEN CDD_ATTNOTFND(); 


AX=11 Bliss-32 v4.0-7 ° 4 
age 43 


wr 


} Find the target record description. 
STATUS = = SCDDSFIND_ NODE(context = CTXCCOM_CDD_CTX), 


ESsaetens = HAE CORD BASE, 


pr otocgt =, = PROTOCOL) ; 
PROTOCO 
(DECR I FROM 31 TO 0 DO IF .BUFFERC.1] NEQ %C* * THEN EXITLOOP .1); 


IF NOT .STATUS THEN RETURN CRE_DIAG(SOR$_CDDERROR, .STATUS); 


vuvuv 


! Validate that this is a record description and that we should 
be able to read it. 


iF NOT ses tog) | ety oo fate f ), UPLIT BYTE('CDDSRECORD"), 
-PROTOCOLCOJ, .PROTOCOL(1), 


RETURN SORSSERROR(SORS$_NOTRECORD, 2, PATHCLO], PROTOCOL); 
STATUS = Poseag + 3 NUM_ATT(context = CTXCCOM_CDD_CTX], 


ent ivy CORD_BAS 
attribute = CDDSK CORE LEVEL, 
| 
| 


~ 


FF EWNNANWwwrorsreorsrerererery 


WR OC OONOAVEWN (OO DNOAUE WN $$ OODNAOULSWWN—ODOONOUSE 
DO" DO OO OO OO OO OOOO. OOO O~ 


BBE EE EE NWN PP PININININPIN ND 


vuvuv 
NRO ODNOUE UN O ODNOAUE WN $$ O ODNOAU EWN (OOO NAME WN OOWONOUSE 


ROPIPIPYDIMYAMVININININININININININININPNININININININININY PY NPoTyNnononononofunononononononoporonofponoyry 


sx 


value = CORE LEV 
IF NOT .STATUS TREN RETURN CRE_DIAG(SOR$_BADPROTCL, .STATUS); 


IF .CORE_LEVEL NEQ ACCEPTABLE_LEVEL 
RETURN CRE_DIAG(SORS$_UNSUPLEVL) ; 

Create a history entry 

CRE_HISTORY(RECORD_BASE) ; 


PEARS AAAAAAAA AO AO 


Se Se Se Se Oe Be Se Be Oe Se Be Be Ge Be Ge Ge Se SH Se BH Se BH Oe Be Ss Be Se OH Oe BH Oe Se OHS Oe SHS SHS SESE SESH Se SHS OHO BH Beas 
ee me ee ek ee ed a od ed dd od wd od od dd 
MAMVIVMVIVIVIUIVE 


=PIPIMINIPIPMUNIPININININININININININIPININININPINININY 


4 
rf: Now translate the record 
06 65 PRM 
06 65 CRE E TRAN Ne Ci ecoRDC. RECORD_BASE); 
06 P 265 STATUS = SCDDSRL SE LOCKSTcontext = CTXCCOM_CDD_CTX), 
06 65 node = RECO ORD ASE); 
bee $3 IF NOT ° STATUS THEN RETURN CRE_DIAG(SORS$_CDDERROR, .STATUS); 
066 65 STATUS = cosPetes ng OUT(context = CTXCCOM_CDD_CTX)); 
067 65 CTXLCOM_ 
oes o2 IF NOT a7 tii THEN OieTURN CRE_DIAG(SORS_CDDERROR, .STATUS); 
070 66 RETURN SS$_NORMAL; 
071 66 END; 


44 52 4F 43 45 52 24 44 44 43 00856 P.AAF: .ASCII \CDDSRECORD\ : | 
-EXTRN CDDSSIGN_IN, CDDSF IND_NODE 


dD 4 
CRE_TRANS 16-Sep-1984 01:08: AX-11 Bliss-32 V4.0-74 P 
v04=000 User Literal Definitions 12286-1382 94:98:39 SORT 2.SRC CRETRANS.B32;1 age 435 


.EXTRN CDDSGET_NUM_ATT 
.EXTRN CDDSRLSE_LOCKS, CDD$SIGN_OUT 
043¢ 0000 .ENTRY CRE_EXTRACT_RECORD, Save R2,R3,R4,R5,R10 = 2555 
55 F79A cf i 0002 MOV CRE-DIAG, R5 : . 
. 0144 26 Sf SOOA PUSHAB Sea tchK + 2606 
000000006 00 ee 000 CALLS #1, CDDS$SIGN_IN : 
54 0 dO 0001 MOVL RO, STATUS : 
4A 4 €9 00018 BLBC _—s STATUS + 2607 
28 AE 20 DO 0001B MOVL #32, PROTOCOL + 2611 
C AE 8 AE 44 OO1F MOVAB BUFFER, PROTOCOL+4 ; oie 
0140 CB 4 AC DO 00024 MOVL PATH, $20(CTX) : 361 
00000000' ai D5 OO02A TSTL  CDD__ATTNOTFND > 2614 
§ 12 00030 BNEG = '1$ : 
0000v CF 00 FB 000 : CALLS #0, CDD_ATTNOTFND : 
28 AE 9F 00037 1$ PUSHAB PROTOCOL > 2621 
08 AE 9F OOO3A PUSHAB RECORD_BASE ; 
7E 04 0003D CLRL = = (SP) : 
04 AC DD 0003F PUSHL PATH : 
0144 CB 9F 00042 PUSHAB 324 (CTX) : 
000000006 00 99 FB 00046 CALLS #5, CDDSFIND_NODE : 
54 0 dO 0004D MOVL RO, STATUS : 
50 1F D0 00050 MOVL asi, > 2623 
20 08 AE4O 91 00053 2$ CMPB BUFFERCIJ, #32 ; 
06 12 00058 BNEQ 4 ; 
F6 50 F4 00034 SOBGEQ 1, 2$ ; 
50 01 CE 0005p MNEGL #1, RO : 
28 «AE 01 AO SE 00060 3$ MOVAB 1(RO), PROTOCOL 3 2622 
7D 54 €9 00065 4$ BLBC. STATUS, > 2625 
28 «AE 20 BA AF . OA 2D 00068 CMPCS #10, P.AAF, #32, PROTOCOL, @PROTOCOL+4 : 2630 
16 13 00071 BEQL «S$ ; 
28 AE 9F 00073 PUSHAB PROTOCOL : 2633 
4 AC DD 00076 PUSHL PATH : 
02 DD 00079 PUSHL #2 ; 
001¢8274 8F DD 0007B PUSHL #1868404 : 
000000006 00 04 FB 00081 CALLS #4, SORSSERROR : 
04 00088 RET : 
SE DD 00089 5$ PUSHL SP : 2638 
10000001 8F DD 00088 PUSHL #268435457 ; 
AE 9F 00091 PUSHAB RECORD BASE : 
0144 CB 9F 00094 PUSHAB 324(CTR) ; 
000000006 90 94 F 0098 CALLS #4, CDDS$GET_NUM_ATT : 
4 0 DO 0009F MOVL RO, STATUS : 
OA 34 E8 OOOA LBS STATUS, 6$ > 2639 
4 DD OOOA PUSHL  5T ; | 
001¢8234 BF DD OA PUSHL #1868340 : 
56 (11 OAD BRB : 
04 6E D1 OOOAF 6$: CMPL ORE_LEVEL, #4 > 2641 
A 13 0082 BEQL : 
001¢8284 8F DD 000B4 PUSHL #1868420 > 2643 
65 1 FB OOBA CALLS #1, CRE_DIAG ; 
04 BD RET ; 
04 AE 9F 00 BF 7$: PUSHAB RECORD_BASE > 2647 
O7E0 §3= 65 01 FB 000C CALLS #1, CRE_HISTORY ; 
SA 08 AC 9E 000C6 MOVAB PRMO, PRM > 2651 
| 


CRE_TRANS 
¥04=000 


; Routine Size: 


User Literal Definitions 


269 bytes, 


04 A dD 
06A8 C5 Of FB a 
ae: 
0144 C F 000D 
000000006 00 8 F 090 
i 5009 Goot 
000000006 90 _— oF i O0e 
4 0 OD OF 
« ™ BR a 
4 DD OOOF 
gs on1e825¢ FD 00F 
04 0010 
50 01 »bO 0010 
04 0010 


Routine Base: 


SORSRO_CODE + 0860 


pal9be $5:40:8t 


AX=11 Bliss-32 V4.0-7 
SORT S2 SRETCRETHANG 64551 


begs: BASE 
CRE irons RECORD 
gia 


3 
it EDDSAL se LOCKS 


48 


#1, RO 


Ll 
Ta 


SORT PSREICRETRANS 84951 


rt Pe -32 V4.0-74 


1eoSeo-1984 91:08:56 


User Literal Definitions 
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v04=000 
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Vv eo < r4 —_ =) lend sabe 2DaVv0 
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Vv ao « na vO SS ee 2 ae Oe Zev VY _ QMHv-w 
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LLL INI CINCO 


PITNOPR- DOO UM T NOR. DOO CUM TMNOR. DHOOM TMNOR. DOOR TUM TNO 
WOOOOO0ORPPP-PP-F-F_PF-B. WDD DW DDDDWDDEAAPPAPAAOPOOCOOOCOO 
WDOOOOOOOOOOOODOODOODOODOODODODOODOOODDODODDDODODODOOORA-AAPAK 
NUNS ONAN NOON NONI ONIN ONIN IOI ONION ONION OI OI OOOO OOO 


Ae tet a nt Sootocesrr soon 
K-RKRAR DDDDDDDDDDRAAAARAAOPRPOOOCOCOCOCOOCOCSOR RRR KKK 
SOSSSOSCSOSSSCSOSOOSCOSCOSOOOSOSOSOSOSOS 

Cel el oe el el el el 


ce ce cee ee ee et ca eee ee ae 


Ce cel el el ol el el el el el ee ee 
ree Se ee re ee 


: 2701 


.@ORD 


0004 00000 CRE_CLEAN_UP: 


000000006 00 


; Routine Size: 


User Literal Definitions 


39 bytes, 


0D 


F66D =F 


Routine Base: 


SORSRO_CODE + 096D 


001¢823¢ 


omoom 
wove 


4 
Sep- AX-1 Oi lege 
B-Sep-1984 01:08:56 yaXett BL 
BLBS Hinks f 
PUSHL 
PUSHL ‘ 186 48 
CALLS » CRE_DIAG 
1$: ET 


2.V4.0-74 
RE TRANS 04 31 


00000000 


52 48 53 44 44 43 
5453 49 48 SF 45 54 41 45 52 43 26 44 44 43 
59 52 4F 


000 

52 00000000" EF 9 

SE 10 C¢ 

sf 

08 AE 06 3 
OC AE Dis AF 

6€ 12 0D 

04 AE CF OAR OQ 

52 D 

04 AE 9 

10 AE 9 

000000006 99 F 

1 E 

D 

—E D 


fFoow"sOomMmomorvrum & 


SOOOooooooooooooo 


Ooooooooooeoooooo 
WAARIIONIN 2 s3esss 
WWHOOOW 9 OLOMO Or 


OoOooooooooooooooo 


H 4 
ergeeni8Rs P3:98i8F — Hesar bP des cae Meo 2$5. 


CDDSHR1) 2%; 


UPLIT BYTE(X)) 2; 


CRE_TRANS 
v04=000 User Literal Definitions 

5 1118 707 1 eaTengS ROUTINE 

: 1119 108 eine BSF IND_IMAGE_SYMBOL: ADDRESSING_MODE (GENERAL) ; 
; 1 1 at  eDDSHRI = UPLIT BYTE('CDDSHR'); 

; iu ie CDDSHR_DECL = VECTORC2] INITIAL (%CHARCOUNT('CDDSHR'), 
: 1125 714 1 NAMSTR_DECL(X) = VECTOREC2] INITIAL (%CHARCOUNT(X), 

> 1126 715 1 MACRO 

: 1127 * ri6 1 CDD_(x) = 

+ 1128 Mo717 1 BEGI 

> 1129 r18 1 OWN Z: INITIAL(O); 

; 1150 M 271 1 LOCAL STATUS; 

> 1131 mM 2720 1 BUILTIN AP, CALLG; 

; 113¢ M2721 1 IF .2 EQL 6 

3 113 M 27 § 1 

> 1134 M 2723 1 BEGIN 

> 1135 M2726 1 LOCAL CODSHR: CDDSHR_DECL; 

> 1136 “ 1g8 1 LOCAL NAMSTR: NAMSTR7DECL 

> 1137 M2726 1 STATUS = LIBSFIND IMAGE SYMBOL (CDDSHR, AMSTR 

; 1138 MK $797 IF NOT .STATUS THEN RETORN SORSSERROR(SORS. SHR_ EYSERROR, 0,.STATUS); 
: 1140 i 3199 RETURN PE ALLGC. AP, .2); 

: 1142 2731 1 GLOBAL ROUTINE CDDSCREATE_HISTORY 


= CDD_('CDDSCREATE_HISTORY'); 


SORSRW_PICDATA,NOEXE, PIC,2 
0 
SORSRO_CODE,NOWRT, SHR, PIC,2 


\CDDSHR\ 
\CDDSCREATE_HISTORY\ 


P.AAG 
LIBSF IND_IMAGE_SYMBOL 
CDDSCREATE_HISTORY, Save R2 
#i6, SP 

z 


#6, CDDSHR 

CDOSHR1, CDDSHR+4 
, NAMS 

Pp AAH, NAMSTR+4 

NAMSTR 

CDDSHR 

é LIBS JND_IMAGE_SYMBOL 

STATUS, 1 


STATUS. 
(SP) 


4 
CRE_TRANS -Sep- 
v04=000 User Literal Definitions 1$-se0-1 
001C11B4 F DD 00037 
000000006 00 85 FB 8 
04 44 
00 = B2 6C FA 45 1$: 
04 00049 


; Routine Size: 74 bytes, Routine Base: SORSRO_CODE + O9AC 


; 1143 2732 1 GLOBAL ROUTINE CDDS$FIND_NODE 


00000000 00008 
45 446 4F GE SF 44 4E 49 46 246 44 44 43 009F6 
0004 00000 
52 00000000" EF 9E 00002 
5E 10 C2 00009 
ge DS 0000C 
6 12 443 
08 AE 06 00 0001 
Oc AE FF79 CF 9E 00014 
6E OD DO OOD1A 
04 AE DS AF 9E 00010 
52 DD 00022 
04 AE 9F 00024 
10 ag 9F 00027 
000000006 00 03 FB QOO2A 
12 50 E€8 00031 
oe DD st at 
E D4 000 
001C1184 8F ODD OR ee 
000000006 00 03 FB 000 f 
04 0004 
00 862 6C FA 00046 
04 0004A 


; Routine Size: 75 bytes, Routine Base: SORSRC_CODE + 0A03 


3; 1144 2733 1 GLOBAL ROUTINE CDDSGET_ATTS 


00000000 0000C 


o8¢ 93:08:36 AX-11 Bliss-32 V4.0-74 


PUSHL 
CALLS 
RE 
CALLG 
RET 


SORT32.SRCICRETRANS .B32; 1 


#1839540 
#3, SORSSERROR 


(AP), a2 


CDD_('CDDSFIND_NODE'); 


P.AAI: 


18: 


Zz: 


»PSECT 
- LONG 
«PSECT 
«ASCII 


»PSECT 
- LONG 
~PSECT 


SORSRW_PICDATA,NOEXE, PIC,2 


0 
SORSRO_CODE,NOWRT, SHR, 
\CDDSF IND_NODE\ 


FOOSE IND NODE. Save R2 
#i6, SP 
Z 


$ 
#6, CDDSHR 
CODSHRT . CDDSHR+4 
#13, NAMS 
AAI, NAMSTR#4 
NAMSTR 
CDDSHR 
#3, LIBSFIND_IMAGE_SYMBOL 
STATUS, 1$ 


#1839540 
#3, SORSSERROR 
(AP), a2 


= CDD_('CDDSGET_ATTS'); 


PIC,2 


SORSRW_PICDATA,NOEXE, PIC,2 
0 
SORSRO_CODE,.NOWRT, SHR, 


PIC,2 


2732 


; Routine Size: 


; 1145 


TRANS 
=00 


53 54 54 41° SF 


000000006 


000000006 
00 


75 bytes, 


2734 


A 
0 User Literal Definitions 


ze 00000000' 


B2 


Routine Base: 


AE 
AE 
6E 
AE 


00000000 
43 
43 
0004 
52 00000000" EF 9 
5E 10 C¢ 
2 D 
6 1 
r 9 
FECS =F 3 
13 3 
CD AF OO9E 
52 DD 
4 AE 9F 
0 AE 9F 


001C11B4 


SF 39 54 49 54 4E 45 SF 54 45 47 e: rf: * 


00 


SF OCOONVNM OOP PruUirorowc—m 
OO WAMOOWMMMo™MO"AOwon 
Ono nOoVIMn"OOl OTC 09-907 I900 
Pr FOS SOO OMOmMorvrom & 
OOOCOGCOCOCCOOOOOOOOOOoooO 


SOOCOOoCooooooooooooooooo 


1 GLOBAL ROUTINE CDDSGET_ENTITY_CELL 


OO fF S NEMS F&F FOMOOMO 


COOCCCOCOCOCCOCOCOOooOCooooo 
FUNNIES S| S$ DOCCO 


46 


oOo 
=> 
> 


SORSRO_CODE + OASA 


1$: 


IEoseoctgge 01:08:56 


54. 45 47 26 446 44 43 OOAGE P.AAJ: 


ASCII 


AX-11 Bliss-32 V4.0-74 
SORT32.SRCICRETRANS .B32;1 


\CDDSGET_ATTS\ 


gopsger. ATTS, Save R2 
Hen SP 
i. 


he 
CDbSH 1 Z-EBDSHR4 
We. 
P, ahs ANAMS TRG 
R2 
NAMSTR 
CODSHR 
#3, LIBSFINC_IMAGE_SYMBOL 
STATUS, 1$ 


#1839540 
#3, SORSSERROR 
(AP), a2 


COD_('CDDSGET_ENTITY_CELL"); 


P.AAK: 
4 


-PSECT 
- LONG 
»PSECT 
-ASCII 


SORSRW_PICDATA,NOEXE, 
0 

SORSRO_CODE.NOWRT, SHR, 
\CDDSGET_ENTITY_CELL\ 


PIC,2 


PIC,2 


CDDSGET_ENTITY_CELL, Save R2 
#16, SP 
2 


#6, CDDSHR 
CDDOSHR1, CDDSHR+4 
PAK. NAMSTR+4 


NAMSTR 
CDDSHR 


Page a 


(14) 


2733 


2734 


6 


CRE_TRANS 1 
v04=-000 User Literal Definitions 1 
000000006 9 Fe A 
1 E 1 
ge ae 
001C11B4 8F ode 000 § 
000000006 00 03 FB 8 3 
04 4 
00 B2 6C FA 00046 
04 0004A 


; Routine Size: 75 bytes, Routine Base: SORSRO_CODE + OAB8 


; 1146 2735 1 GLOBAL ROUTINE CDDSGET_ENTITY_LIST_ATT = 


00000000 00014 


SF 59 54 49 54 4E 45 SF 54 45 47 24 44 44 43 00803 
54 54 41 SF 54 53 49 4C 00B12 
0004 00000 
52 00000000" EF rs 00002 
5E 10 C2 00009 
62 D5 0000C 
36 12 BRnoF 

08 AE 06 00 0001 
OC AE ta G SN 
6E 17 DO OO01A 
04 AE C9 AF 9E 0001D 
52 DD B08 e 
04 AE 9F 00024 
10 ag 9F 00027 
000000006 00 9 c? Ban 4A 
12 0 €8 00031 

$e DD 000 

E D4 8 

001C11B4 8F DD 

000000006 00 03 FB 000 3 
eee (SBIR 
04 boc, 


; Routine Size: 75 bytes, Routine Base: SORSRO_CODE + OBIA 


3 1147 2736 1 GLOBAL ROUTINE CDDSGET_NUM_ATT 


wSep-t9be 45:10:81 ESOarSo°SneScae rads 85951 


#3 L 1BSf ND_IMAGE_SYMBOL 
STATUS, 1 
STATUS 


#1839540 
#3, SORSSERROR 
(AP), a2 


CDD_("CDDSGET_ENTITY_LIST_ATT'); 


P.AAL: 


18: 


»PSECT 
» LONG 
»PSECT 
ASCII 


SORSRW_PICDATA,NOEXE, 
0 

SORSRO_CODE.NOWRT, SHR, 
\CDDSGET_ENTITY_LIST_ATT\ 


PIC,2 


PIC,2 


CDDSGET_ENTITY_LIST_ATT, Save R2 
#16, SP 
2 


#6, CDDSHR 

CDDSHR1, CODSHR+4 

#25, NAMSTR 

a NAMSTR+4 

NAMSTR 

Epes: 

#3, LIBSFIND_IMAGE_SYMBOL 
STATUS, 1$ 


=( 

#1839540 

#3, SORSSERROR 
(AP), a2 


= CDD_('CDDSGET_NUM_ATT'); 


Page 42 


(14) 


2735 


V 


CRE_TRANS 16s 
v04=000 


4 
User Literal Definitions 14- $e: 


00000000 00018 2: 


0004 0000 
52 00000000' FF 9 B38 
SE oc 8 
ge D 00C 
6 1 944 
08 AE 06 DO 0001 
Oc AE FEO8 CF 9E 00014 
6E OF 00 448 Es 
04 AE Di AF YE 00010 
52 DD 00022 
04 AE 9F 00024 
10 ag 9F 00027 
000000006 00 0 Fe QO02A 
12 50 €8 00031 
50 DD 00034 
7E D4 sit 
001C11B4 8F Ddd 000 
000000006 00 03 FB 000 3 
04 0004 
00 B2 6C FA 00046 1$ 
04 0004A 


; Routine Size: 75 bytes, Routine Base: SORSRO_CODE + 0B74 


; 1148 2737 1 GLOBAL ROUTINE CDD$GET_STRING_ATT 


00000000 0001C 2: 


54 41 OOBCE 


0004 000 
52 00000000" EF 9 O09 
SE (2 ¢ B90¢ 
Pees) 
A CF 9E tae 


54 54 41 SF 4D 55 4E SF 54 45 47 246 44 44 43 00B65 P.AAM: 


SF 47 4E 49 52 54 53 SF 54 45 47 26 $ 44 43 OQOBBF P.AAN: 


~PSECT 
- LONG 
«PSECT 
ASCII 


-PSECT 
- LONG 
-PSECT 
ASCII 


0 
SORSRO_CODE ,NOWRT, 
\CDDSGET_NUM_ATT\ 


CDDSGET_NUM_ATT, Save R2 


Hi6, SP 
ts 
CDgSHR vc CDDSHR+4 
PsA P.AAM, NAMSTR+4 


R 
NAMSTR 
CDDSH 


R 
#3, LIBSFIND_IMAGE_SYMBOL 
STATUS, 1$ 


#1839540 
#3, SORSSERROR 
(AP), az 


CDD_("CDDSGET_STRING_ATT'); 


SORSRW_PICDATA,NOEXE, 


0 
SORSRO_CODE ,NOWRT, 
\CDDSGET_STRING_ATT\ 


SHR, 


SHR, 


198e $3:98:3) USGA b2°sneScRe rma. 099.1 


SORSRW_PICDATA,NOEXE, PIC,2 


PIC,2 


PIC,2 


PIC,2 


CDDSGET_STRING_ATT, Save R2 


#16, SP 


#6, CDDSHR 
CDDSHR1, CDDSHR+4 


2736 


2737 


User Literal Definitions 


16- 
14- 
6E 12 DO QOO1A 
AE cc A 38 
52 0D 
04 AE 9F 4 
P 10 A 44 09 
3 EB 1 
DD 4 
E 04 
0011184 F 0D 000 
. si See 
B2 6C FA 60 46 
04 O004A 


Routine Base: SORSRO_CODE + 0BD1 


: Routine Size: 


2738 1 GLOBAL ROUTINE CDDSRLSE_LOCKS 


53 4B 43 4F 


; Routine Size: 


00000000 00020 2: 


45 53 4C 52 24 44 44 43 O0CIC 


0004 00000 
52 00000000" EF 9Y9E 00002 
5E 10 C2 00009 
$¢ DS 0000C 
6 12 443 

AE 06 00 4 
AE FD52 «CF «OE 00014 
6E OE 00 9b 
AE D2 AF 9E 00010 
52 DD 00022 
04 AE 99F 00024 
10 ag oF 7 
00 Fe A 
12 0 € 1 
0 0D BS 4 

E 04 00 
001C11B4 8F DD 00 

00 03 FB 3 
04 4 
B2 6C FA 46 
04 0004A 


Routine Base: SORSRO_CODE + OC2A 


se 
Sep-1986 3:10:81 ESonrS2<SneScaE TRANS -039; 1 


#18 STR 
Re RANT N NAMSTR+G 


CDDSHR 
#3, LIBSFIND_IMAGE_SYMBOL 
STATUS, 1$ 

#1839540 

#3, SORSSERROR 

(AP), a2 


CDD_('CDDSRLSE_LOCKS"); 


SORSRW_PICDATA,NOEXE, PIC,2 

0 

SORSRO_CODE,NOWRT, SHR, PIC,2 
\CDDS$RLSE_LOCKS\ 


CDDSRLSE_LOCKS, Save R2 
Hie, SP 


#6, CDD 
CDASHAT “EDDSHRS4 
#14, NAMSTR 

p ,AAO, NAMSTR+4 

NAMSTR 

CDDSHR 

#3, LIBSFIND_IMAGE_SYMBOL 
STATUS, 1$ 


STATUS 


#1839540 
#3, SORSSERROR 
(AP), al 


CRE_TRANS 
v04=000 


; 1150 


; 1151 


; Routine Size: 


N 4 
User Literal Definitions 12-8 4 
DL 


p-19 
-1984 
2739 1 GLOBAL ROUTINE CDDSSIGN_IN = CD C 


(* 


MLL HiME CUTLER Ta TitaL reat 


»PSECT 


DDSSIGN_IN'); 


SORSRW_PICDATA,NOEXE, PIC,2 


00000000 00024 2: «LONG 0 
.PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 
4E 49 SF 4E 47 49 53 24 44 44 43 OOC7S P.AAP: .ASCII \CDDSSIGN_IN\ 
0004 0000 .ENTRY CDDSSIGN_IN, Save R2 
52 00000000" EF 9E 0000 HOVAB 2 
SE 10 C2 0000 SUBL2 #16, SP 
$2 d5 0000C 3% 2 
6 1 00008 BNEQ 1$ 
08 AE 06 dO 0001 MOVL #6, CDDSHR 
OC AE FCFC CF 9E 00014 MOVAB  CDDSHR1, CDDSHR+4 
6E 0B DO OOOTA MOVL #ii, 
04 AE DS AF 9€ 0001D MOVAB P.AAP, NAMSTR+4 
52 DD 00022 PUSHL R2 
04 AE 9F 00024 PUSHAB NAMST 
10 AE 9F 00027 PUSHAB CDDSHR 
000000006 00 03 FB 990 A CALLS #3, LIBSFIND_IMAGE_SYMBOL 
12 50 €8 00031 LBS STATUS, 1$ 
50 DD 00034 PUSHL STATU 
7E D4 90056 CLRL. = 
001¢11B4 8F DD 0003 PUSHL #1839540 
000000006 00 03 FB 0005E CALLS #3, SORSSERROR 
04 0004 RET 
00 B2 6C FA 00046 1$: CALLG (AP), a2 
04 0004A RET 
75 bytes, Routine Base: SORSRO_CODE + 0C80 
2740 1 GLOBAL ROUTINE CDD$SIGN_OUT = CDD_('CDD$SIGN_OUT'); 
.PSECT SORSRW_PICDATA,NOEXE, PIC,2 
00000000 00028 2: .LONG 0 
.PSECT SORSRO_CODE.NOWRT, SHR, PIC.2 
54 55 4F SF 4E 47 49 53 24 44 4&4 43 OOCCB P.AAQ: .ASCII \CDDSSIGN_OUT\ 
0094 0 ENTRY CDDSSIGN_ OUT, Save R2 
52 00000000' FF MOV 
5E 9 C SUBL ic, SP 
62 D 0c TSTL 


2739 


2740 


CRE_TRANS 
v04=000 


; Routine Size: 


Sete Se ee Ge Se eee 

ot a a 
ot a 
WAVIMUVIVIVIV 
ODONOULS wr 


44 4E 46 


; Routine Size: 


——s 


User Literal Definitions 


b gee 


1986 93:70:39 


AX=11 Bliss-32 V4.0-74 
SORT32.SRCICRETRANS B32; 1 


36 12 oF BNEQ 
08 AE 6 p 1 MOVL #6, CDDSHR 
C AE FCAS cf : 14 MOVAB COBSHRI CDDSHR+4 
6E ¢ p 1A MOVL 12, NAMSTR 
04 AE D4 AF sO9E «(0001 MOVAB P Akon NAMSTR#4 
52 DD PUSHL R2 
04 AE OF PUSHAB NAMSTR 
10 Ar F 00027 PUSHAB CDDSHR 
000000006 00 FB 002A CALLS #3, LIBSFIND_IMAGE_SYMBOL 
12 6 E8 00031 LBS STATUS, 1$ 
DD 00034 PUSHL 
7E D4 00 6 CLRL. = 
001C11B4 8F DD PUSHL #1839540 
000000006 00 03 FB 20945 CALLS #3, SORSSERROR 
00 B82 6C FA 00046 1$: CALLG (AP), a2 
04 O004A RET 
75 bytes, Routine Base: SORSRO_CODE + OCD7 
3741 1 GLOBAL ROUTINE CDD_ATTNOTFND: NOVALUE = 
rag BEGIN 
37 LOCAL CDDSHR: CDDSHR_D 
rad é tBeAL ue: NAMSTR ~DECLES CDD$_ATTNOTFND'); 
oote 2 STATUS = AT Sie IND IMAGE_SYMBOL(CDDSHR, NAMSTR, CDD__ATTNOTEND); 
e747 é If NOT .STATUS THEN RETORN SORSSERROR(SOR$_SHR_SYSERROR,O,.STATUS); 


54 4F 4E 54 54 41 SF 26 44 44 43 00D22 P.AAR: 
0000 00000 
SE OF C2 0002 
04 AE 06 D0 0000 
08 AE FCS? = CF «9E 00009 
OE 0D 0000F 
04 AE DE AF 9E 00011 
00000000" EF 9F 00016 
04 AEF O0IC 
10 Ag 9F OOOTE 
000000006 00 cB 00022 
11 0 €8 000 
0 DD 0002C 
E D4 000¢E 
oorcites = 8F DD 000 
000000006 00 3 FB 000 
04 00030 1$: 


62 bytes, Routine Base: SORSRO_CODE + 0030 


«ASCII 


\CDD$_ATTNOTFND\ 


“a Mei Save nothing 
*CDDSHR 
R1, CDDSHR+4 


NAMSTR+4 
eq ATINOTEND 


4d 
£45 Zo\'> 


re LUBE IND. IMAGE _SYMBOL 


1839540 
iS. SORSSERROR 


Page 4 


(14) 


2748 | 


SOR$RO_CODE 
SORSRW_PICDATA 
SORSRO_CODE 


File 


~$255$DUA28: (SY 
~$255$DUA28: (SO 


; Information: 
; Warnings: 
; Errors: 


ee Ay my Com 


User Literal Definitions 


749 1 END 
750 0 ELUDOM 


PSECT SUMMARY 


Library Statistics 


Total 
SLIBISTARLET.L32;1 9776 
RT32.SRCISORLIB.L32;1 409 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:CRETRANS/OBJ=OBJ$:CRETRANS MSRC$: CRETRANS/UPDATE=(ENHS$: CRE TRANS) 
2812 3s + 674 data bytes 


02:4 
Sigs 
Lexemes/CPU-Rin: 33389 
307 pages 
plete 


2 4 NOVEC,NOWRT, 
N WRT 


RD , EXE, SHR, LCL, 
44 e a RD »NOEXE »NOSHR, ta} REL, 
3438 NOVEC,NOWRT, RD, EXE, SHR, LCL, 


Attributes 


ereceeee Pages 

Percent Mapped 
0 581 
30 34 


Liss-32 V4. 
SRC JCRETRANS .832;1 


i 
————— 


r 


AL EQUIPMENT CORPORATION | 
DENTIAL .AND PROPRIETARY 


AH-BT1i3A-SE 
VAX/VMS V4.0 


IT 
FI 


D 
C 


G 
N 


I 
0 


0363 


